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INFORMATIE. 

De 6502 Kenner is een uitgave van de KIM 
Gebruikersclub Nederland. Deze vereniging 
is volledig onaf hankeli jk, is statutair 
opgericht en ingeschreven bij de Kamer van 
Koophandel en Fabrieken voor Hollands 
Noorderkwartier te Alkmaar, onder nummer 
634305. 

Het doel van de vereniging is het bevorde- 
ren van de kennisuit wisseling tussen 
gebruikers van computers die zijn opge- 
bouwd rond een microprocessor uit de 6500- 
familie. Voorbeelden hiervan zijn onder 
andere: Elektuur EC-65, Commodore 64, 
Apple ] [ , Elekt uur Junior, Atari 600 en 
800. 

De eerder genoemde kennisuitwisseling komt 
onder andere tot stand door 6 maal per 
jaar de 6502 Kenner te publiceren, door de 
organisatie van landelijke bi j eenkomsten 
voor de leden, het instandhouden van een 
sof t warebibliotheek op cassette, floppy 
disk en papier en het beschikbaar stellen 
van een Bulletin Board. 

Landelijke bij eenkomsten: 

Deze worden gehouden op bij voorkeur de 
derde zaterdag van de maanden januari, 
maart, mei, September en november. De 
exacte plaats en datum worden steeds in de 
6502 Kenner bekend gemaakt in de rubriek 
Uitnodiging . 

Bulletin Board: 

Voor het uitwisselen van mededelingen, het 
stellen en beantwoorden van vragen en de 
verspreiding van software wordt er door de 
vereniging een Bulletin Board beschikbaar 
gesteld. Dit Bulletin Board valt onder de 
ve rant woor de li j kheid van een van de 
bestuursleden en wordt bediend door een 
zgn. Sysop. 

Software Bibliotheek: 

Voor het beheer van de Software Biblio- 
theek streeft het bestuur er naar zgn. 
Software Co'6rdinators te benoemen. Hierbij 
wordt gedacht aan een drietal cobrdina- 
tors; een voor EC-65(K) en Junior met OHIO 
OS-65D, een voor DOS-65 en een voor 
diverse andere systemen zoals onder andere 
Elektuur Junior. 

Het Bestuur: 

Het bestuur van de vereniging wordt ge- 
vormd door een dagelijks bestuur bestaande 
uit een voorzitter, een secretaris en een 



Vereniging 

pennigmeester en een viertal gewone leden. 

Voorzitter: 

Rinus Vleesch Dubois 

Florence Nigthingalestraat 212 

2037 NG HAARLEM 

Telefoon 023-330993 

Secretaris : 
Gert Klein 
Diedenweg 119 
6706 CM WAGENINGEN 
Telefoon 08370-23646 

Penningmeester : 
John van Sprang 
Tulp 71 

2925 EW KRIMPEN A/D IJSSEL 

Leden : 

Adri Hankel 
Willem Kloosstraat 32 
7606 BB ALMELO 
Telefoon 05490-51151 

Erwin Visschedijk 
Dillelaan 11 
7641 CX WIERDEN 
Telefoon: 05496-76764 

Gert van Opbroek 
Bateweg 60 
2481 AN WOUBRUGGE 
Telefoon 01729-8636 

Nico de Vries 
Mari Andriessenrade 49 
2907 MA CAPPELLE A/D IJSSEL 
Telefoon 010-4517154 

Ereleden: 

Naast het bestuur zijn er een aantal ere- 
leden, die zich in het verleden bijzonder 
verdiensteli j k voor de club hebben 
gemaakt : 

Erevoorzitter : 

Siep de Vries 

Ereleden: 

Mevr. H. de Vries van der Winden 
Anton Mueller 
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Vereniglng 



De 6502 Kemier: 

Pe 6502 Kenner wordt bij 
verschijnen gratis toege- 
zonden aan alle leden van 
de KIM Gebruikersclub 
Nederland. De kopij voor 
het biad dient bij yQ<©r- 
keur vati die leden afltoa- 
stig te zijn. Alle kopij 
wordt door de redactie op 
bruikbaarheid en publica- 
tlewaarde beoordeeld. Deze 
t:wee criteria^ in saaen-' 
hang met de actualiteit, 
bepalen of en zo ja 
wanneer het stuk gepubli- 
ceerd wordt. De redactie 
streeft er naar de kopij 
z«veel mogej-ijk in zijn 
oorspTonfcelijfce vora te 
plaatsen, Nederlandstalige 
kopij wordt daarom in 
principe niet naar een 
andere taal vertaald. De 
redactie streeft er naar 
een Nederlandstalig blad 
te maken doch het staat de 
auteur vrij een artikel 
geheel of gedeeltelijk in 
een an.4mm '-tml. te «^^j|-^ 
ven. 

Belaas kan de redactler, 
noch het bestuur, enige 
aansprakelijkheid aanvaar- 
den voor de toepassing(en) 
van de gepubliceerde 
kopij * 

Versehi j ning sdat a : 

De 6502 Kenner verschijnt 
op ie derde zaterdag van 
de maanden februarl, 
apr^il, jttni, augustus, 
■omE^mr en deceaber. 

Be redactie word^ gevorad 
do0r: 

le l«'S££it£rsleden. 
ledactieadres : 

§ert van Opbroek 

Bateweg 60 

2481 AN Woubrugge 
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Vereniging 



REDACnONEEL. 

Nadat de vorige twee nummers van de 6502 
Kenner door bijna het voltallige bestuur 
in elkaar gedraaid zijn, hetgeen hectische 
toestanden opleverde, heb ik voorlopig de 
redactie maar op mij genomen. Dit heeft 
voor mij als voordeel, dat ik niet op een 
zondag vanuit het westen naar Wierden hoef 
te rijden om daar "even" een nummer van de 
6502 Kenner te maken. Ik kan nu mijn tijd 
4|l||:gS>t;&S itldelen en aan een volgend nummer 
we«tfett' kls het mij uitkomt. 
Nu is het natuurlijk niet zo, dat ik in 
staat ben steeds in mijn eentje een 
uitgave van de 6502 Kenaei" fca vserzorgen. 
In de ejBrste,piaafrs i»i|#t 4#4jrvoor k^pij 
Msefeffclsatie zljn. tk wfi ti daarom ook zeer 
dringend vragen kopij in te zenden. Ten- 
slotte is de 6502 Kenner een blad voor de 
leden, samengesteld door de leden. In de 
tweede plaats zou het prettlg zijn, als er 
nog enkele personen bereid zouden zijn in 
de redactie zitting te nemen en mij zouden 
willen ondersteunen bij de werkzaamheden 
aan het blad. Indien u denkt bij te kunnen 
dragen aan de 6502 Kenner, neem dan s.v.p. 
contact met mij op. 

Omdat ik denk dat ik voor de meeste leden 
een volslagen onbekende ben, lijkt het mij 
zinvol het een en ander over mijzelf te 

vertellen: 

Ik wordt in juni 34 jaar, ben getrouwd en 
heb een dochter van ruim anderhalf jaar. 
Ik heb natuurkunde gestudeerd in Groningen 
« ben afgestudeerd in de Vastestoffysica. 
ife hfeis gedurende mijn studie een tijdje 
voor leraar gespeeld maar dat voldeed 
niet. Na mijn studie heb ik eerst ruim een 
jaar fysisch onderzoek gedaan, daarna heb 
ik een baan gezocht en gevonden in de 
automatisering. Momenteel werk Ik bij een 
klein maar snel groeiend software bureau, 
dochter van een duits bureau, die zich in 
Nederland op het ogenblik voornamelijk 
toelegt op de Logistiek. Ik ben lid 
geworden van de KIM-club toen ik een 
Juiiia^ _geb;Ouwd had. Deze heb ik later 
vootzi^h van een floppy disk. Hierop 
draaide ik toen het Proton Senior DOS. 
Momenteel ben ik in het bezit van een mc 
68000 systeem, draaiend onder OS9/68k. 
Bovendien heb ik als redacteur de beschik- 
king otrer een namaak Apple met Z80 kaart 
en GPM. Mijn interesses liggen voorname- 
lijk op het gebied van de hardware en de 
Zgn. harde software, dit zijn operating 
sysftei|e»^ en de programmatuur daar vlak 
Qinheeit^^ltet mc 18000 systeem worit dan ook 
voornamelijk als studieobject gebruikt. 
Hoewel de namaak Apple een interessante 
machine is, gebruik ik hem alleen voor 
tekstverwerking . 

Gert van Opbroek. 



VAN DE VOORZITTER 

Namens het bestuur wens ik u alien een 
voors]^#eiig em «ea gezcwd 1988 toe. 

Volgt u ook de ont wikkelingen op P.C.- 
gebied? Beroepsmatig doe ik dat wel. Per 
week krijg ik gratis zo'n 4 tot 6 
computer-vakb ladelt fc#eg*r<itii4#B. 0eze 
bladen hebben Ski grote overeenkomst met 
elkaar; nl. veel reklame en artikelen die 
de stand van zaken betreffende de nieuwste 
P.C.-ont wikkelingen beschrijven. Vooral de 
IBM PS/2 en de Macitti:#ab fcirijgen veel 
aandacht . 

Met veel tam-tam en lyrlsche volzinnen 
worden deze nieuwste P.C.-telgen beschre- 
ven. De consument moet vooral de indruk 
krijgen dat wanneer je niet onmiddelijk 
een 32 Bit(ter) of equivalent e machi#e„ 
inclusief pakken RAM en randaf paratu«* 
zoals lasierf rlnters en optlsche disks 
aanschaft, u binnenkort een zeer ongeluk- 
kige gebruiker zult zijn met uw 6502, Z80 
of andere 8 bits f£0eft8SO£a 

Daarentegen kom ik In memst& proc&s- 
industrie^n, zoals bijv. Hoogovens, DSM, 
DOW, om er maar enkelen te noemen, zeer 
veel computers van Digital Equipment 
CoBperation tegen, welke al zo'n 5 tot 10 
jaar of zelfs langer in gebruik zijn bij- 
voorbeeld J*SI-U, PDP-H. Eierult blijkt 
volgens mij dat de 'SjCI**-cottsuiaient veel 
sneller te verleidem tot de aanschaf 
van nieuwe computers dan de industrieBle 
gebruiker. De laatst genoemde hebben naar 
alle waarschijnlijkheid een betere afweer 
tegen de zogenaamde snelle vei%«|iits, die 
men vooral in de P.C*-wereld tegem komt. 

Hieruit moeten we concluderen dat wij 
weliswaar als vereniging niet stil moeten 
zitten maar aan de andere kant mag men ook 
niet in paniek raken wanneer men niet in 
het bezit is van een 32 Bits-computer. 

Namens het bestuur wens ik u alien veel 
soldeer- en programmeerplezier. Heeft u 
goede idee&i of heeft u lets byzonders te 
melden, laat het ons nu wet en. 

De voortzitter, 
Rinus Vleesch Dubois 



UITSPRAA^: 

KIM: Klooien In Maehinetaal. 
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Vereniging 



JAARSTDKKEN 1987 VAN DE KIM GEBRDIKERSCLUB NEDEBLAMD. 



BaXaits per 31 d6e«riier 1987 

ACT1¥A 1987 

Inventaris 5.008 

Voorraden pm 

Te ontvangen posten 0 

Geldmiddelen 29 .059 




TOtAM. 34,067 32*184 

PASSIVA 

Vrije reserve 26.140 19.833 

Vooruit ontvangen contributie 7.650 12.130 

Te betalen posten 277 221 

TOTAAL 34.067 32.184 

Staat van baten en lastrai over 1987 

LASTEN 

Drukkosten 6502 Kenner 16.230 

Verzendkosten 1 .398 

Redactiekosten 1 .327 

Bestuurskosten 985 

HCC dagen # 

M®^£liviBg Inventaris 1.410 

TOTAAL 21.350 22.215 

BATIN 

eaatflfeutie 18.290 18. 35* 

Opbrengst advertentie 900 900 

Verkoop losse 6502 Kenner 628 1.206 

Vierk#0f» cass. en manuals 725 365 

Bijeenkomsten 798 1.101 

Rente bank en giro 573 534 

BOS 65 5.493 1.226 

Div (o.a. Ohio disk) 250 3.425 

TOTAAL 27.657 27.110 

Opgemaakt door J.F. van Sprang 
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Verefiiging 



INVENTARIS f. 4400 (vdrig jaar f. 3410) 
Te specif iceren als volgt : 

aanschaff ings boek- 
Jaar en waarde watde 



af schrijf- 
waarde 



boek- 
waarde 









t/m i»op 


1 Q fi 7 


31-12- 


Schrijf machine 


1981 


1 .224 


0 


0 


0 


Printer OKI- 80 


1981 


590 




n 


n 
u 


Tract orfeed 


1981 


175 


0 


0 


0 


Apple 


1982 


4.000 


0 


0 


0 


KIM 


1980 


1 .if 4 


0 


0 


0 


Junior 


1981 


399 


0 


0 


0 


Flip over 


1980 


310 


0 


0 


0 


Twee recorders 


1983 


394 


0 


0 


0 


Printer OKI-84 


1983 


2.613 


360 


360 


0 


Monitor 


1983 




50 


50 


0 


Apple like 


1985 


4.000 


3.000 


1 .000 


2.000 


Daisy wheel printer 


1987 


608 




0 


608 


MS-DOS computer 


1987 


2.400 




0 


2.400 




TOTAAL 


18.306 


3.410 


1.410 


5.008 



Het afsehtttiviHfspercentage bedraagt 25% vande aanschaf f ingswaarde. 

In 1987 is een MS-DOS computer voor een Sysop en ook een daisy wheel printer 
veor de redactie gekocht. 



DOS65 



Algemeen 



QgROEP DOS-65 COORDINATOR. 



Omdat Erwin Visschedijk, de huidige 
coordinator voor DOS-65 meer tijd over wil 
houden voor de verdere ontwikkeling van 
DOS-65, aoekt het bestuur/de redactie een: 

SOFTWME OOfmEmt&Bt. (M/V) 

Tot de taken van deze functionaris horen: 

- Distributie van hardware en software 
voor DOS-65 

- Tecfemisctie Onder steuning van mede- 
clubleden 

- Het onderhouden van contacten met DOS-65 
gebruikers 

Deze functie kan bij uistek vervuld worden 
door een enthousiaste DOS-65 knutselaar 
die het bovendien leuk vindt, contact te 
onderhouden met andere DOS-65 fanaten. 

Degene die feereid is deze belangrijke taak 
op zich te nemen, wordt verzocht zich aan 
te melden bij een van de bestuursleden of 
bij de redactie. 



VRAGKMRiyitRIEg 

Bij de redactie zijn de volgende vragen 
blnnengekomen : 

- Wie heeft de elefcttiiar-Tylotter Hondriaan. 

De vraagsteller wil graag (mee)werken 
aan de ontwikkeling van software hier- 
voor . 

- Wie heeft ervaring met de CRT 9128. De 
vraagsteller heeft ffefelemen met ilfet 
scrolls als hij de statusregel ult zftt. 

- Leden b^itineti de club willen een nlewe 
CPU-kaart ontwikkelen. Zlj denken hier- 
bij aan een kaart die zowel geschikt is 
voor de 65SC816 als voor de 68008. Zijn 
er leden die ideeBn hebben voor de te 
ontwikkelen hard- en software? 

- Is er iemand die de beschikking heeft 
oVe? een (semi-) prof essioneel CAD- 
pakket voor het maken van een print- 
ontwerp? De vraagsteller heeft onderhand 
zware hoofdpijn van zijn pogingen het 
schema in een printontwerp te vertalen. 

Voor reacties op deze vragen en het stel- 
len van nieuwe vragen kunt u, schrifte- 
lijk, terecht bij de redactie of op het 
Bulletin Board. 
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Vereniglng 



Op de algemene ledett^Qglii^'^/^ In Almelo 
in december j.l. kwam maar woven dat het 
rear wenselijk is dat er V«&f de vereni- 
ging een zogenaamd HuishoudelJLJk Reglemeiit 
opgesteld wordt. 

Voor onze vereniging bestaan statuten. In 
■i^ metlsije t«)ekciiiist zal mn afsclirift van 
deze statuten aan alle leden toegezonden 
worden; waarschi jnli jk middels een publi- 
catie in de 6502 Kenner. Verder zullen in 
de toekomst alle nieuwe leden meteen een 
a£sdbtii;l|% mm iieze mat^m kcijgen. 

In im statuten zijn eeti aantal zaken 
vastgelegd zoals cnder andere: 

- De naam van de vereniging 

- Het doel dat de vereniging hmit 

- De geldmiddelen 

- Wie er lid kunnen worden 

- De vei^lichtingen van de leden 

- De behandeling van kennis binnen de 
vereniging (kopij, sof tware-bibliotheek) 

- De beBindiging van het lidmaatschap 

- Het bestuur en de bestuurstaken 

- Stemmlngen op bestuurs- en ledenvergade^ 
ringen 

- Toezicht op de vereniging 

- De procedure om de statuten te wljzlgen 

Deze statuten zijn op 22 juni 1978 opge- 
steld door een notaris en gedeponeerd bij 
de Kftilif van Koophandel en Fiiifl^tn. 

Op de lecfehvergaderliig In Minelo bleek dat 

de statuten niet in alle zaken voorzien. 
Onder andere bleek dat er geen goede 
regels voor het stemmen bij volmacht zijn. 
Bovendien bleek dat er een grote behoefte 
bestsat ouie'r 4e ledm met ttanie de plaats 
en status fin ie redactle te regelen. Deze 
zaken kunnen in een vereniging geregeld 
worden in een zogenaamd Huishoudeli jk 
Reglement. Er is op de genoemde ledenver- 
fa#MMi^ besloten een dergelljjk reglement 
op te stellen. 

Om tot de opstelllng van een huishoudeli jk 
reglement te komen, is er een commissie 
gevormd die een voorstel op zal stellen. 
Dit voorstel wordt eerst in een bestuurs- 



vergadering behandeld en kan dan op een 
algemene ledenvergadering behandeld 
worden. Na afloop van deze ledenverga- 
dering treeit Atz reglement dan in 
werklng. 

De bovengenoemde commlssle bestond, in 
eerste instantie, uit: 

De bestuursleden 
Adri Hankel en 
Nlco de Vries 

en de leden 
Ruud Uphoff en 
Geert Stappers 

Momenteel maakt Geert Stappers geen deel 
meer uit van de commissie vanwege werk- 
zaameden in het buitenland. 

Op dit moment zijn er twee vergaderingen 
van de commissie geweest en llgt er een 
behoorlijk uitgewerkt voorstel. In dit 
voorstel zijn een aantal zaken geregeld 
waartmder: 

- De afbakening van de taken van het 
bestuur 

- Voorwaarden voor een stemmii&f lij 
volmacht 

- Rojrement van leden 

- Verantwoordelljkheden van bestuursleden 

- Reglement voor redactle en bulletin 
board 

- Wijzigingen van het Huishoudelijk 

Reglement 

Dit voorstel wordt nu uitgewerkt tot een 
ccmcept en bekeken of het geheel juridisch 
waterdicbt it* Verwacht wordt dat dit 
concept In de loop van april ddor het 
bestuur behandeld kan worden. Na de behan- 
deling door het bestuur volgt een leden- 
vergadering waarop dit concept tat Huis- 
houdelijk Reglement kan worden. 

Nadat het Huishoudelijk Reglement in wer- 
klng getreden is, wordt ze toegezonden aan 
alle leden. Nieuwe leden krijgen bij aan- 
vang van het lidmaatschap samen met een 
afschrift van de statuten e«o af schrift 
van het Huishoudelijk Reglement. 
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Bulletin Board 



053-303902 




...3153303902 



BULLETIN BOARD VAN START 

let is zover! Op de club-bijeenkomst Iti 
i^Coasenle op 16 januari is de hardware 
voor het Bulletin Board (prikbord) 
overgedragen aan de Sysop J.H. Banser. Op 
15 februari was de officil4le start van het 
Bulletin Board 2#€^t als u dit leest faet 
systeem zou moeten draaien. Natuurlijk zal 
niet alles direct vlekkeloos verlopen, 
maar het bestuur en de Sysop verwachten 
dat de eventuele kinderziektes van het 
frtteesl^ isseser ^©eilg voorMJ .zailea .zija* 

^:$Miitmm fcaa ialletin Board gebruikt 
worden? BiJvoorMeld voor: 

- Het uitwisselen van berichten. 

- Het St alien van vragen en het beantwoor- 
den hiervaffls 

- Het indieiWKEi iran kopij. 

- Met verspreiden van software. Hlervoor 
kan er door de gebruikers software naar 
het systeem toe "ge-upload" worden waar- 
na deze files door anderen van het 
systeem "ge-download" kunnen worden. 

Voorlopig is het Bulletin Board toegangke- 
lijk voor Eowel leden als niet leden. In 
de toekomst zal dit waarschi Jnli Jk 
veranderd worden. 

lai^ns het bestuur, 
Si^TEM van Opbroek 



KIM Gebruikersclub Nederland 
Sysop: J.H. Banser 




sj i p p le 



OS3 - 3 «^ e z 






HQ 
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Uitnodiging 



UITNQDIGING CLUBBIJEEMKOMST 

Datum: 19 maart 1988 
iLokatie: gebouw 't Kruispunt 

Slachthuisstraat 22 

5664 EP GELDROP 

tel: 040-857527 

Entreeprijs: fl. 10, — 
Routebeschrijving 

TREIN: 

Geldrop is ieder half uur bereik- 
baar per trein (stoptrein Eindho- 
ven-Weert). Vanuit het station 
rechts afslaan, de Parallelweg, dan 
tweede straat links, de Laarstraat. 
Aan bet einde daarvan rechts af- 
slaan direct daarna weer 
llttksaf, de liisaa vler Heetiskin- 
deren. Op de hoek van de eerste 
straat links, de Slachthuisstraat, 
vindt u he$ ipebc^ow 't Kruispunt. 

AUTO: 

Vanaf. 's ftertogenbosch of Breda 
naar autoweg Eindhoven- Venlo. De 

eerste afslag na Eindhoven is 
Geldrop. Ga richting Geldrop, dan 
komt u vanzelf op de Laan der vier 
Heemskinderenj dit is nl. een ver- 
pi.i'Chtm ttf's:l«f naar rechts. Zle 
verier bovea. 

Vanaf Eindhoven door het centrum 
van Geldrop richting Heeze. Na 
winkelstraat en daama het zieken- 
huis aaa dbe rechterzijde de eerste 
sttaAt IfftTts blj de stoplicJiten* 
Dit is de Laan der vier Heemskin- 
deren. Zie verder boven. 

Frogramma: 



NUENEN 



9:30 

10:30 



11:30 
12:00 



Zaal open met koffle 

Opening 

Voordracht van Rlnus Vleesch 

Dubois : 

RGB en Pixels; grafische 
jlltvoer op beeldschermen. 
(met de-mo). 
Forum en markt 
Lunchpauze 



Aansluitend het informele gedeelte 
bedoeld om kenfili, ervaring Public 
BoB#iji mm elf tm ©ntwikkelde sott- 
wai^Tiit te wisselen taet uw medele- 
den. BRENG DAAROM OOK UW EIGEN 
SYSTEEM M££! (En vergeet de snoeren 
nlet .....) 




HEE2E A2 



17:00 Slulting. 



9 



Software 



Nlco de Vries 

In De 6502 Kenner no. 53, biz. 40 vroeg 
Gert van Opbroek als kanttekening bij 
zijn Datum naar Weekdagroutine naar een 
algoritme voor het berekenen van de 
Paasdagen. Zoals een ieder bekend zal 
zijn, vallen de Paasdagen niet ieder 
jaar op dezelfde datum, ook niet nood- 
zakelijk in dezelfde week, maar wel al- 
tijd op een zondag en een maandag. Aan 
de datum van de Paasdagen zijn op hun 
beurt de datum van Goede Vrijdag, Hemel- 
vaartsdag en Pinksteren gekoppeld. 
Feestgevoelige lieden zullen verder nog 
ppmerken. dat ook het carnaval hier lets 
mm- wm^ m&m hmft. 

Hoe komt het nu, dat ftosdagen niet 
steeds op hetzelrde tijdstip worden ge- 
vierd? Ket antwcord is niet eenvoudig. 
Het Paaafeest herdenkt de wederopstan- 
ding van Jezus na de kruisiging. Op de 
dag van deze kruisiging was het vrijdag, 
en voile maan. Ofschoon niet helemaal 
correct, wordt het Paasfeest gevierd als 
het voile maan is. Nu is het nog de 
vraag, welke voile maan. Overleg in het 
verre verleden heeft de afspraak opge- 
leverd, dat Paaszondag gevierd wordt op 
de eerste zondag volgend op de eerste 
voile maan aa de voor jaarsevening . Ver- 
der is er mfg de regel, dat indien de 
voile maan op zondag valt* Faasz(»ulag de 
zondag daarop volgend ia« Mt is 
principe-af spraak . De datum van het 
Paasfeest hangt hierbij af van astrono^ 
mlsche tafels. Qaar er vroeger ti^ifels 
waren over de Batn^urigheld ra& deze 
tafels, gaf men er de voorkeur aan, een 
cycllsche berekenlng aan te houden. Deze 
berekening zlt Txdam^ In elka«ar| dat de 
afwijking tussen de ui^iotist vazt de be- 
rekenlng ea de werkelijke dag waarop het 
voile mmmn is, maxlmaal twee dagen 
bedraagt . 

Het BASIC programma PAASDA@|: 



De berekenlng verloopt als volgt. 
hiergegeven methode geldt voor Jaar- 
tallen tussen 1900 en 2099). Men deelt 
het jaartal waarvoor men de Paasdatum 
wil weten door 19. (19 is het aantal 
jaren dat het duurt voordat de maaxH 
cyclus weer dezeli^e is). Bepaal 
hlervan de rest en noem deze A. 

Deel het jaartal ook door 4. Dit 
levert het aantal sotoikkeliarefl sinds 
het begin van de $mmmj.im Wmm. 
deze varlabele B. 

Deel het jmmrtal door 7, en noem de 
rest C. 

Vermenlgvuldig A met 19. en tel er 24 
blj op, en deel het resultaat door 30. 
Noem de rest van deze berekenlng D. 

Vermenigvuldig B met 2, C met 4, en D 
met 6, tel deze getallen bij elkaar op, 
en tel blj dlt reeuXtaat 5 bij. Deel 
dlt tenslotte door 7 en noem de rest E. 

Paaszond^ valt nu op D+E-i-22 maart. 
Als D+E+22 groter is dan 31, dan valt 
Paaszondag op D+E+22-31 april. Er zijn 
twee uitzonderingen. Vindt men 26 ap- 
ril i dan valt Paaszondag op 19 april, 
een week eerder. Vlndt men 25 april 
alsmede D=18 en A>10, dan valt Faae- 
zondag op 18 april* Aan het elnde mm 
dlt artilceltJe aiaftte een BASIS fxtg#iyi«> 
ma dat ie fiili«siiiyyii': 



De Qiref^ige veranderende feestdagen imm-* 

fen als volgt van Paaszondag af. le 
iakster^ag irttlt 7 weSam later , even- 
eens ojp een zdadag. Remeiirasrtsdag Is 
de donderdag daarvoor. De woensdaig voor 
de zesde zondag voor Pasen Is Aswoens- 
dag. 

Literatuur: Natuur en feehniek, jaai*- 
gang 19^0, biz. 121 ev. 



10 REM BEREKENING VAN DE PAASDAGEN 

20 REM DD=23;EE=4:REM VOOR 1700-1899 

30 DD=24:EE=5:REM VOOR 1900-2099 

40 INPUT "Jaartal (4 cijfers)": JAAR 

50 A=INT ( ( ( J AAR/ 1 9 ) -INT ( JAAR/ 1 9 ) ) • 1 9+ . 25 ) 

50 BsINTC ( ( JAAR/4)-INT( JAAR/4) 5»4+.25) 

70 C=INT( ( ( JAAR/7)-INT( JAAR/7) )»7+.25) 

80 D=INT ( ( ( ( 1 9* A+DD ) / 30 ) -INT ( ( 1 9»A+DD ) / 30 ) ) »30+ . 25 ) 

90 F=2»B+4»C+6»D+5 

1 00 EsIHT ( ( ( F/7 ) -INT (F/7 ) ) »7+ • 25 ) 

110 PAAS=D+E+22 

120 PAASMr3 

130 IF PAAS=57 THEN PAAS=50:REM CORRECTIE VOOR 26 APRIL 

140 IF PAAS=56 AND D=l8 AND Ai^lO THEN PAAS=49 

150 IF PAAS031 THEN PAAS=PAAS-31 :PAASM=4 

160 PRINT "Paaszondag valt in het jaar" : JAAR; "op" :PAAS; 

170 IF PAAai=3 THEN PRINT "maart" ELSE PRIIIT "april" 

180 END 
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PRObRAMMA OM PRIMTER f1-1009 VAN ifflTHER TE INITIALI3EREN 



FOOC 
F006 



C023 
C020 
C03B 
C02F 
COOS 



mm fa 02 

8002 20 0(J0 
3005 90 2B 
8007 20 3BC0 
300A 075052494E 
801D 2043484543 
302E 20 2FC0 
3031 60 

8032 20 3BC0 
8035 0C09092A2A 
3063 0D09092A2A 
3091 0D0'?092A2A 
80BF 0D09092A2A 
80ED ODODODOO 
30F1 20 3D81 
S0F4 20 2484 
80F7 20 9D83 
SOFA 20 E083 
80FD 20 6684 
8100 20 AA84 
8103 20 7F81 
8106 20 C281 
3109 20 0582 
810C 20 4982 
810F 20 D282 
3112 20 3D82 
3115 20 1783 
8118 20 5A83 
311B 4C 3230 

81 IE 20 20C0 
3121 C9 4E 
8123 DO 05 
8125 20 23C0 

8128 38 

8129 60 
812A C9 59 
312C DO 05 
812E 20 23C0 

3131 13 

3132 60 

3133 C9 51 
8135 DO E7 
3137 20 2FC0 
313A 20 03C0 

813D 20 3BC0 
8140 5348494654 
8165 20 iE81 
3168 BO OF 
316A AO 00 
316C B? mi 
316F A2 02 
8171 20 06F0 
8174 C3 
3175 a 01 



3 
4 
5 
6 
7 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 

m 

29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
^ 
56 
57 
53 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
71 
74 
75 
76 
77 
73 



1/065 ROUTINES IN EPROM 



INITS 

oun 



OUTPUT 

INPUT 

PRTEXT 

CRLF 

DOS 



EQU 
EQU 



JFOOC 
«006 



D08i§ Rounics 



EQU 
EQU 
EQU 
EQU 
EQU 



ESC m 
m 



$C023 
$C020 
$C03B 
$C02F 

torn 

$1B 

tsooo 



; INIT A SELECTED OUPUT DEVICE 

i OJTTOT TO mKW OUTPUT mm 



PRINT CHARACTER TO SCREEN 
6ET CHARACTER FROM KEYBOARD 
PRINT A TEXTSTRING liMTIL 400 
RETURN LINEFEED 
HARH START 00865 



CHECK IF PRIMTQt IS mm 



CHKPRT 



START 



YESNO 



SHFTIN 



LDX 
JSR 
BCC 
JSR 
FCC 
FCC 
JSR 
RTS 

JSR 
FCC 
FCC 
FCC 
FCC 
FCC 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 

JSR 
CMP 
BNE 
JSR 
SEC 
RTS 
CMP 
BNE 
JSR 
CLC 
RTS 
CMP 
BNE 
JSR 
JSR 

JSR 
FCC 
JSR 
BCS 
LDY 
LDA 
LDX 
JSR 
INV 
CPY 



t<02 
INITS 
START 
PRTEXT 

7, 'PRINTER NOT READY.' 
' CtECK PRINTER. '.0 
CUF 



^t**** PRINTER INSTELLINGS PROGRAMMA ******' 
****** VOOR EEN BROTHER M-1009 :»*****' 

:|i********************«**iMt*******iMi*«***i<>iMi ' 

13,0 

SHIFT IN 
RESET SHIFT IN 
1/3 INCH 
1/6 moi 
73 REGELS 
66 REGELS 
VET SCHRIR 
RESET VET SCHRIFT 
GROOTTE LETTERS 
RESET GROOTTE LETTBJS 

11 INCH PAPIER 

12 INCH PAPIER 
DUBBELLE AANSLAG LETTER 
RESET DUBBELLE AANSLAS 



PRTEXT 

12,9,9; 

13,9,9 
13,9,9 
13,9,9 
13, 13, 
SHFTIN 
RSHTIN 
IICH18 
INi:H16 
PfiGE73 
PAGE66 
VETLET 
RVEP^T 
GRLH 
RGRLET 
ELINCH 
TVIINCH 
DUBLET 
RDUBLT 
START 

imn 

#'N' 
1.F 

OUTPUT 



¥V 
l.F 

CWTPUT 



#'Q' 
YESNO 
CRLF 
DOS 

PRTEXT 
'SHIFT IN 
YESNO 

mo 

MESS1,Y 

#«02 

OUTI 



IffBIDHeSl) 



(132 OWWiCTEIS) H/m '.0 



EEN PROBLEEM 

IN TWEE TALEN 

Op deze en de vol- 
gende pagina'S . Is 
tweemaal mmm. 
programma afgedmfct 
voor de aansturing 
van een printer. 
Beide programma's 
zijn ook van dezelf- 
de auteur: 

T.W. Borst. 

Waarom tweemaal het- 
zelfde pif^gycttma? 
Omdat de ene versie 
in assembler ge- 
schreven is en de 
andere versie in 
Forth, 

Mogelljk zet m-mn 
dergelljke, directe 
confrontatie ma- 

chinetaalprogram- 
meurs aan eens aan 
het denken en kijken 
de rasechte F4th-ei:s 
(zo schljn je dat te 
schrijven) naar een 
assemblerprogramma. 

Misschien lets wat 
we vaker moeten 
doen? Laat het de 
redactie eens weten 
of nog beter schrijf 
ook eens §&i en het- 
zelfde programma in 
twee of meer talen. 

De redactie. 
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3177 DO F3 


79 




BNE 


1.6 


817? 23 2FCQ 

»ilt^P- - 


§0 


2 




CRLF 


ll 




RTS 






32 








MM'W ' 


33 


riESSi 


FCC 


iOF 




34 


MENDl 


FCC 


$ 


817F 20 3BC0 


35 
36 


V'ETLET 


JSR 


PRTEXT 


3182 5i45542053 


37 




FCC 


'VET bCHRIFT 


31A7 20 IE81 


38 




JSR 


YESNO 


31AA BO OF 


39 




BCS 


2,F 


31AC AO 00 


90 




LDY 


#$00 


31AE B9 BF81 


91 


1 


LDA 


MESS2,V 


31B1 A2 02 


92 




LDX 


#$02 


31B3 20 06F0 


93 




JbR 


OUTX 


S1B6 C3 


94 




I NY 




81B7 CO 02 


95 




CPY 


#(I1E1®2H€^2) 


ylB9 DO F3 


96 




BNE 


1.B 


3 IBB iO TPw 


97 


2 


JSR 


OILF 


81BE 60 


98 




RTS 






99 








31BF 1B45 


100 


MESS2 


FCC 


ESC/E' 


31C1 CI 


101 


liEND2 


FCC 






102 








31U2 20 3BC0 


103 


RVETLT 


JSR 


PRTEXT 


31C5 5245534554 


104 




FCC 


7 nnr*r"T iir*T r-r*iiBTr"T 

RESET VET SCHRIFT 


31EA 20 1E81 


105 




JSR 


YESNO 


31ED BO OF 


106 




BCS 


2.F 


81EF AO 00 


107 




LDY 


#$00 


31F1 B9 0232 


108 


1 


LDA 


HESS3,Y 


81F4 A2 02 


109 




LDX 


i*02 


31F6 20 06F0 


110 




JSR 


OUTX 


81F9 C8 


111 




INY 




81FA CO 02 


112 




CPY 


#(M&ND3-MESS3) 


81FC DO F3 


113 




BNE 


l.B 


81FE 20 2FC0 


114 


2 


JSR 


CRLF 


8201 60 


115 




RTS 






116 








8202 iB46 


117 


MESS3 


FCC 


ESCi'F' 


3204 04 


118 


t1END3 


FCC 


$ 




119 








3205 20 jBlO 


120 


GRLET 


JSR 


PRTEXT 


8208 47524F4F54 


121 




FCC 


'GRtiOTTE LETTSS 


822D 20 1E81 


122 




JSR 


YESNO 


8230 BO OF 


123 




BCS 


2.F 


8232 AO 00 


124 




LDY 


#$00 


3234 B9 4582 


125 


1 


LDA 


i1ESS4,Y 


3237 A2 02 


126 




LDX 


»$02 


8239 20 06F0 


127 




JSR 


orrx 


323C C3 


123 




INY 




323D CO 03 


129 




CPY 


»(MEND4-MESS4) 


323F DO F3 


130 




BNE 


l.B 


8241 20 2Ft6 


131 


2 


JSR 


CRlf 


8244 60 


132 




RTS 






133 








ft?4S 1R5701 


134 


MESS4 


FCC 


ESC/WM 


Oi^AA Jin 

8248 48 


135 


riEMM 


FCC 


$ 




136 








3249 20 3BC0 


137 


RGRLET 




PRTEXT 




133 




FCL 


'F£SET bROOTTE LETTE 


y271 iO lESl 


139 




JSR 


YESNO 


3274 BO Or 


140 




BCS 


2.F 


S276 AO 00 


141 




LDY 


#$bo 


3273 B9 3982 


142 


1 


LDA 


MESS5,Y 


y2/B H2 OZ 


143 




LCX 


#$02 


O^^Tl TA A /HA 

d2/D 20 U6F0 


144 




JSR 


OUTX 


3230 C3 


145 




INY 




32S1 CO 03 


146 




CPY 


»(f1END5-«ESS5) 


8233 DO F3 


147 




BNE 


l.B 




(ASS 




JoR 


CnLF 


8283 60 


149 




RTS 






150 






3239 1B5700 


151 


MESS5 


FCC 


Escr.s 


323C 3C 


152 


MENDS 


FCC 


$ 


323D 20 3BC0 


153 








154 


TWINCH 


JiR 
FCC 


PRTEXT 


S290 424C4 14420 


155 




'BLAD LENSTE 12 INCH 


32B5 20 1E81 


156 




JSR 


YESNO 



Y/N/Q ',0 



Y/N/Q ',0 



Y/N/Q ',0 



Y/N/Q ',0 



Y/N/S SO 
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32B8 BO OF 
82BA AO 00 
82BC B9 CD32 
32BF A2 02 
S2C1 20 06F0 
32C4 CS 
S2C5 CO 04 
32C7 DO F3 
32C9 20 2FC0 

mzm 

32CD 1B43600C 
32D1 Dl 

S2D2 20 3a;o 

82D5 424C41A420 
82FA 20 1E81 
82FD BO OF 
82FF AO 00 
8301 B9 1283 
3304 A2 02 
3306 20 06F0 
3309 C3 
830A CO 04 
330C DO F3 
830E 20 2FC0 
3311 60 

8312 1B43000B 

8316 16 

8317 20 3BC0 
331A 44^424245 
833F -20 1E81 
8342 BO OF 
8344 AO 00 
3346 B9 5733 
3349 A2 02 
334B 20 06F0 
834E C3 

334F CO 02 
8351 DO F3 
8353 20 2FC0 

8356 60 

8357 1B47 
8359 59 

835A 20 3BC0 
835D 5245534554 
8382 20 1E81 
3335 K) OF 
8387 AO 00 
8389 B9 9A33 
333C A2 02 
333E 20 06F0 

8391 C3 

8392 CO 02 
8394 DO F3 
8396 20 2FC0 
8399 60 

839A 1B48 
839C 9C 

339D 20 3BC0 
33A0 C494A4E20 
33C5 20 1E81 
83C3 BO OF 
83CA AO 00 
83CC B9 DK3 
83CF ft2 02 
33D1 20 06F0 
83D4 C8 
33D5 CO 02 
83D7 DO F3 
S3D9 20 2FC0 



157 BC3 

158 LDY 

159 1 LDA 

160 LDX 

161 J3R 

162 INY 

163 CPY 

164 BNE 

165 2 JSR 

166 RTS 
167 

168 MES36 FCC 

169 MEND6 FCC 
170 

171 ELINCH JSR 



1 



172 
173 
174 
175 
176 
177 
178 
179 
180 
181 

182 2 
133 
184 

135 MESS7 

136 leffi? 

137 

188 DUBLET JSR 
189 



FCC 
JSR 
BCS 
LDY 
LDA 
LDX 
JSR 
INY 
CPY 
B^E 
JSR 
RTS 



1 



FCC 
FCC 



190 
191 
1'92 
193 
194 
195 
196 
197 
198 

199 2 
200 

201 

202 MESS3 

203 t€ND8 
204 

205 RDUBLT JSR 
206 



FCC 
JSR 
BCS 
LDY 
LDA 
LDX 
JSR 
INY 
CPY 
BNE 
JSR 
RTS 



FCC 
FCC 




2.F 

MOO 

f1ESS6,Y 

#<02 

OUTX 

«(11END6-«SS6) 

l.B 

CRLF 



ESC, 'C .0,12 
$ 

PRTEXT 

'ELAD LEN6TE 11 INCH Y/N/Q ',0 

YESNO 

2.F 

#$00 

t1ES37,Y 

t$02 

oun 

#(MEND7-«BS7) 

1.B 

CRLF 



Ea;,'C',o,ii 
$ 

PRTEXT 

'DUBBEL LETTER AANSLA6 Y/N/Q SO 

YESNO 

2.F 

mo 

MESS3.Y 
#<02 

OUTX 

l(«END3-«ESS8) 

l.B 

CRLF 



ESC, '6' 
$ 

PRTEXT 

'RESET DUBBEL LITTER AANSLA6 Y/N/Q '.0 

YESNO 

2.F 

#400 

I1ESS9,Y 

M02 

OUTX 

CfiLF 



» 

PRTEXT 

'LIJN OPSCHUIF 1/8 IICH Y/N/0 SO 



10,Y 

ma. 
m 

ij 
m 
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235 





236 


ntSSlO 


FCC 


ESI>48 


BiW W 


2i7 
238 


ntNDlO 


FCC 


* 


OOtU odLU 


-170 


iNUnl6 


Jon 


PRTtXT 




240 




PLC 


Ti Tiki nofnjti'pr* * 11 Tkim /k 

LIJN UPSOflJIF 1/0 INCH it 


6w'i 10 Ihol 


241 




uoR 


YESNO 


340B EO OF 


742 




BCS 


2.F 


S40D AO (.10 


243 




LDY 


WX) 


340F B9 2084 


244 


1 


LDA 


MESSlljY 


3412 A2 02 


245 




LDX 


««02 


o414 iiO 06F0 






JSR 


OuTX 


3417 C8 


247 






3418 LO 03 


248 




CPY 




341A DO F3 


249 




BNE 


i.B 


841C 20 2FC0 


250 


2 


JSR 


CRLF 




251 

252 




RTS 




84^ 18410C 
842o 23 


253 


MESS 11 


FCC 




254 

ARB 


IxNDu 


FCC 


$ 


3424 20 3BC0 


25b 


RSHTIN 


JS? 


PRTEXJ 

'RESET ( 80 KAR ) 


'iW 5i455o4554 


257 

258 




FCC 


ij44C iO lESl 




JSR 


YESNO 


8451 AO 00 






ore 




260 




LDY 


«$00 


8453 B9 6484 


261 


1 


LDA 


^ESS12,Y 


8456 A2 02 


262 




LDX 


•$02 


8458 20 06F0 


263 




JSR 


mt 


845B C8 
845C CO 01 


264 




INY 




265 




CPY 




845E DO F3 


266 




BNE 


ij 


8460 20 'Wm 


267 




JSR 


CRLF 


8463 60 


263 




RTS 





Y/N/a '»0 



8466 20 3BC0 
8469 3733204C49 
848E 20 1E81 
8491 BO OF 
3493 AO 00 
3495 B9 A684 
3498 A2 02 
349A 20 06F0 
349D C3 
849E CO 03 
34A0 DO F3 
84A2 20 2FC0 
84A5 60 

34A6 IB4349 
34A9 A9 

34AA 20 3BC0 
34AD 3636204C49 
34D2 20 1E81 
S4D5 BO OF 
34D7 AO 00 
34D9 B9 EA84 
84DC A2 02 
84DE 20 Q6F0 
34E1 C3 
84E2 CO 03 
S4E4 DO F3 
S4E6 20 2Fra 
S4E9 60 

34EA 1B4342 
8€D m 

8000 



269 

270 MESS12 FCC 

271 MEND12 FCC 

272 

273 PAGE73 JSR 



274 
275 

276 

277 

273 1 

279 

230 

281 

232 

283 

284 2 



FCC 
JSR 
BCS 
LDY 
LDA 
LDX 
JSR 
INY 
CPY 
GNE 
JSR 
RTS 



Y/N/Q ',0 



237 MESS13 FCC 

283 I1END13 FCC 
239 

290 PAGE66 JSR 

291 FCC 

292 JSR 

293 BCS 

294 LDY 

295 1 LDA 

296 LDX 

297 JSR 

298 INY 

299 CPY 

300 BNE 

301 2 JSR 

302 RTo 
303 

304 .MESS14 FCC 

305 t1ENDl4 FCC 
306 

307 BID 



%i2 
% 

PRTEXT 

'73 LIJNEN PER BLADZIJ 

YESNO 

2.F 

#«00 

MESS13,Y 

#$02 

OUTX 

#(MEND13-f1ESS13) 

1.B 

CRLF 



ESC, 'C, 73 
$ 

PRTEXT 

'66 LIJNEN PER BLADZIJ (NOR) Y/N/Q SO 

YESNO 

2.F 

«00 

MESS14»Y 
#$02 

oun 

l(MEN014-f1ESS14) 

1.B 

CRLF 



ESC, 'C, 66 

mm 
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Talen 



SCR # 23T 



\ IMITIALISATIE BROTHER PRIfJTER tt-1009 

ill E7tl constani dcviout \ tlleen ^ 



! frt-m (prt-on) 0 > if .* PRINTe? HOT mm * pit 
( tin dev.out ci 40 or dev.out c! then 

s ppt-aff dev.»«t d W and dev. out c! ; 

! scr-on dev. out SO or dev. out c! ; 
! 5cr-off dev.out cfi 7F and dev.out c! : 



m 
it 

12 
13 

II 

15 dtc iul ; s 



! scrOprt 
8 prtOscr 



dev.out c& (dev.out) c! 40 dev.out c! ; 
(dev. out) c@ dev.out c! ; 



^>-01-88 T«B \ INITIALISATIE PROGRAMMA WOR EEN BROTHER PRINTER MIW 
\ 

\ Het dit forth prografwna \z het mogelijh de pririter in een 
\ bepaalde mode ie zetteni alleen de oieest gebruikte coflnando's 
\ kaim«n w^Hrt ^wdiB. 

\ In dos i5 wordt de output bepaald door de bits in de getieafen 
\ plaats $E710 welke in de constante dev.out geplaats is. 
\ 

\ PRT-ON k'\M via een mactilnetaal routine of de printer 
\ gereed is om data te printen.- indien dit niet het 

\ mil is, boodschap « PRINTER NOT ffiflDY 

\ l5 de printer ready dan wordt In dwf^tto;* *l«t bit 

\ voor de printer gezet. 

\ PRT-(FF reset printer bit in dev. oat. 
\ SCR-OtJ set bit in dev.out voor oatput naar hit schers. 
\ SCR-OF reset bit in dev.out. 



SCR # 58 



SCR # 238 



0 
1 
2 
3 
4 
5 
6 
7 
8 

10 
II 



\ iNmALisfiTiE mmm mitm vt-im 

hei 

prt-ff scrOprt OC emit prtOscr ; 

prt-si scrOprt OF emit prtOscr ; 

prt-ffl scfOprt an f»it prMJKf ? 

res-si scrOprt 12 emit prtOscr ; 

res-so scrOprt 14 emit prtOscr ; 

cansil icrOprt 18 e»it prtOscr ? 

IB constant esc 



4-01-88 Tiffl \ m<ym 



vetschrift 
r.vetschrift 



13 
14 

15 deciHl ;s 



scrOprt esc emit 45 emit prtOscr ; 
scrOprt esc emit 46 emit prtOscr ; 



tiaald de waarde op van dev.out en slaat deze 
tijdelijk op in (dev.out) • en zet dan de printer 
aan« 

\ PRTOSCR haald de intioud van (dsv.otit) en zet deze weer 
in dev.out. 

\ PRT-FF sttwi^ t#« %m fill alliB* naar # pplnter. 

\ PRT-SI zet de printer in dl CSi^fensed printfrittde U28) 

\ PRT-SO print dubbel brede lettirs totdat een carridg* 

\ RES-SI reset de condensed printer mode. 

\ RES-SO reset de dubbel brede letter printer mode. 

\ CfiNSEL deze code wist liet buffer wan de printer. 



SCR # 59 



SCR # 239 



0 \ MITIALiSftTIE BROTHS) PRINTER ri-1009 

1 bei 
2 

3! 

4 ! r.iil 
5 

6 ! DB.giif ttip 

7 1 oftderstfetp 



W)l-^ m \ VETSOfilR 



sc 



j^Opi tic tiit 47 iiiit prK^ifl' 

m isiil # «i* mn prtOscr 

f t esc eflit 2d Mit wit prtOscr 



9 : bladlengte scrOprt iii »H M wl* 00 Mit eiit prtOscr 
10 ! lljnopschuiving scrOprt esc Mit 41 enit iMtt prtOscr ; 
11 

12 decisd ;s 

13 
14 
15 



\ R.VETSCHRIFT 
\ DUBBELAANSLA6 
\ R.DUBBaAAI^ 



zet de printer rn de enipttasized printer node. 

reset de emohasized printer mode, 
zet de printer in de dubbel aanslag mode, 
r^t dubbel affiislif node. 
( l=on 0=0 ff ) 

dit commando doet het zelfde als FRT-SO 
alleen wordt dit cooMando niet qereset door 

een carridge return. 

( 1 onderstreep aan 0 onderstreep is uit ) 
onderstreep de te printen ^ooorden. 
( 12 bladlengte ) 
zet de bladlengte op 12 inch. 
\ UJNW»SM1IVIM5 ( 12 liinwschaiving ) 
\ zet de It^R^iidimifigi op 12/72 inch. 



3.IRLETTER 



ONDERSTREEP 
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Talen 



SCR » 



SCR # 240 



0 

1. 
1 
4 
5 
h 
7 
8 
9 

to 

11 
12 
13 
14 
15 



\ SCR EN INDEX PRINTING 1 

'im CR WP 2 .R SPKE PAD 12? BLANKS 

m m mi (line) pad swap cmove 
R> sMAP 111© mm *i*mfm 

t 2SCR CR fW-SO 2 9»A(IS OVER ." SCR » 

DLIF ." SCR # " . CR 

16 0 DO 2DLP I 2FR LODP CR 2DR0P ; 

3 VARIABLE SCR-'IF^T 
0 VARIAM SCR#S 

{ .2SSM m m-mm « + i 



12-08-87 TWB \ SCREEN EN INDEX PRINTING (TEXT) 
\ 2PRT ( scr scf line ) 

\ haall van beide screens de 1 linen op en plaitst dfzt in de pad 
\ uaarna ze naar de printer gestuurd uardt. 
\ !^GR i scf scr ) 

\ print twee screens naast elkaar, dit kan alien als de printer 
\ in de stiift in mode qezet kan worden ( 128 karakters/li jn ) 
2S Wfm \ VARIABLE SCR-OFFSET ' 

\ bevat de offset van de screen nummers in de rechtse kolo^ en 

\ ds linltse kolouj voor 6 opeen volgende screens is de waarde 

\ van Ecr-offsef dris. 

\ in dit geval de waarde icr-«#*^t 

\.2Sa\ { scr scr ) 

\ print twee screens naast elkaar rekenliiQ^eiiiefid mt de taarde 

\ in de variable scr-offset. 

\ 



SCR #61 SCR #241 

0 \ SEfi EN INDEX FRINTIN& 2 12-08-87 TOS \ SCRTOI 01 IMEX PRINT!N6 (TEXT) 

1 f ItDEXTOSCR CR 1+ SWAP 



2 DO CR I 3 .R mE 0 I .LI^E I 20 HW 0« ^ WSmmR I Scr sir ) 

3 IF CR ." CONTINUE (Y) " m DUP ^ = SHAP 121 = ORHOT \ print de index van de screens op hit scfctr*. Stop na » figels 

4 IF LEAVE \ en vraagt of u verder wilt gaan. 

5 THEN CLS 

6 5 \ SHOM-6 ( scr scr ) 

7 \ print 6 screens per bladzij (printer in de shift-in node) 

8 f SCRTOPRT PRT-ON SCR-OFF FRT-SI 3 / 1+ 3 * SWAP \ screens in de linker en rechter koioB zijn apvolfend. 

f DO 13/3*3 OVER + SWAP DiD CR I .2:^R 

to LOOP CR 14 SPACES FfiT-Si) 15 ilESSAbE CR PRT-FF \ SHi^^-SHADOW ( scr scr ) 

11 ai#8 8 +100? fES-SI PRT-OFF j \ print 3 screens in de rectiter koloa en 3 scryns in de linker 

12 \ kolomi de rechter koloin bevat de programatuur 4e linker kolon 



13 : SHOW-6 3 SCR-OFFSET ! 6 SCRIS ! SCRTOPRT ; \ de verklarende text. 

14 : SHOW-SHAW 180 8CR^)FF^ ! 3 SCRIS ! S(ST(3PRT ? 

15 ;S 



SCR # 62 SCR » 242 

0 \ SCR EN INDEX PRINTING 3 27-12-87 W \ SCRESN m INDEX PRINTIH6 (THTf 



1 8 page els cr cr .° paqina 1,2.3,4.5 of 6 pag. ? " 

2 begin key dup 48 > over 55 < and unt il dup 48 - . ; \ INIKXTOPRT 

3 \ vraagt welke pagina van 60 reqels qeprint nmi'Ml^V 

4 ! lineOtoprt scr-off prt-on vetschrift \ deze regels bevatten de index van de forth screens. 

5 do 5 spaces i 3 .r space 0 i .line cr loop ; \ door in scr 4 op regsl 15 een boodschap op te nemen 

6 \ kan elke pagina net een eigen regei afgeslaten wrdiA* 

7 ! indeitoprt page case 49 of 61 1 lineOtoprt endof 

8 50 of 121 61 lineOtoprt endof 

9 51 of 131 121 lineOtoprt endof 
10 52 of 241 181 lineOtoprt endof 
It 53 of 301 241 lineOtoprt endof 

12 54 of 361 1)1 lineOtoprt endof 

13 endcase cr cr 11 spaces 15 message pft-ff 

14 scr-on r. vetschrift prt-off ; 
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Communicatie 



MODEMS EN WAT DAAR BIJ KOMT KIJKEN 

1 . 11,1- — — 

<3ert van Opbroek 

Sinds kort is ons Bulletin Board operatio- 
neel. Om deze reden en omdat de prijs van 
modems de laatste tijd behoorlijk daalt, 
wil ik in dlt stukje het &sa en ander 
uitlei^ fft¥ till wae men gelismlker 

hiervan aon tooetea wetea. 

Om met een Bulletin Board te kunnen commu- 
niceren, hebt u een modem nodig. Dit 
kastje worit a£ttg«il#f 1^ df een serieBle 
uitgang van uw computer en op de telef oon- 
aansluiting. Een modem MOduleert de ult- 
gaande bitstroom zodanig dat ze over een 
telefoonlijn verstuurd kan worden. De 
inkomende signalen worden door het modem 
geDEModuleeyd zodat er weer een bitstroom 
' dits d@@r" de' coatpsitef 'tofB^tfta kan 

word^. 

In het algemeen wordt een modem aange- 
sloten op een serieSle poort van de 
cdmputer, meestal door middel van een 25 
polige connector, lea ult?Qnderiag hierop 
vormen de zgn. card- Of insteek'-modems 
voor de bekende machines rond een 
8086/8088/80286 processor. De aanslui- 
tingen in de 25 polige connector voldoen 
aan de zogeaaamde V24 norm. Voor de duide- 
lijkli€id, geef ik deze norm nog even aaa: 



Pia 


CCITT 


Afk. 


Omschrijving 


1 


101 




Protective ground 


2 


103 


Txd 


Transmitted data 


3 


104 


Rxd 


Recieved data 


4 


105 


RTS 


Request t.6 send 


5 


, 106 


GTS 


Clear to send 


6 


107 


DSR 


Data set ready 


? 


102 




Signal ground 


i 


109 


DCD 


Data carrier detect 




lis 


©Tit 


Data terminal teady 


22 


125 


RI 


Riag iadlcator 



Het signaal Txd is de bitstroom van de 
informatie vanaf de computer naar het 
modem. Het signaal Rxd iS de bltatTOOni 
vaaa£ het modem. 

Clear to send wordt gebruikt om de 
computer te laten weten dat hij data kan 
gaaa sturen in de richting van het modem. 
Mi » commuaiceert via een 6551 ACIA, dan 
ai0a* dit signaal m^mmzlg (laag> aijn 
voo^rdat het IC iaforfflatie wil stutea. 

Het signaal request to send wordt gebruikt 
om aan te geven dat de computer informatie 
naar het modem wil gaan sturen. In het 
algemeen speelt dit signaal alleea bij 
half -duplex verbindingen een rol. 



Door middel van data set ready laat het 
modem de computer weten dat het modem in 
staat is informatie uit te wisselea. Dit 
betekeat ov^rlgens niet dm. het wdeffl 
coat act heeft met eea aader modem* 

Data carier detect geeft aan dat het modem 
in verbinding staat met een ander modem en 
dat de modems elkaars draaggolf begrijpen. 
Voor een 6551 is het noodzakelijk dat dit 
sigaaal laag is voordat dit IC Informatie 
vaa buitea kaa oatvaagea. 

Data terminal ready vertelt het modem of 
de computer al dan aiet klaarstaat om 
iaforraatie uit te wisselea. Het meread@0l 
van de modems weigert elke dieast als dit 
signaal niet aanwezig Is. 

Het signaal RI kan gebruikt worden om de 
computer te latea detecterea dat de tele- 
fooabel over gaat. 

Het aansluiten van een computer aan een 
modem kan meestal gebeuren met een kabel 
waarin de bovengenoemde aans luit ingen 
zonder meer met elkaar zijn doorverbonden. 
Mocht dit alel: het geval zijn, dan moet er 
bijna altijd een nul-modem kabel gebruikt 
worden. In deze kabel worden de verbin- 
dingen 2 en 3, 4 en 8 en 6 en 20 gekruisd. 
Bovendien worden de pennen 5 niet met 
elkaar doorverbonden maar aan beide kanten 
verboaden met pen 4. Eea dergelijke kabel 
heef t men ook aodlg als twee computers met 
elkaar moeten communiceren zonder dat er 
modems tussen geschakeld zijn. 

De meeste verbindingen die tegenwoordig 
gettaeikt wordea zija zogeaaamde full-duplex 
verbiadiagen. Dit wil zeggen dat informa- 
tie in beide richtingen gelijktijdig over- 
gestuurd kan worden. Het komt ook voor dat 
de verbinding werkt met een tweede kanaal 
(back channel). Dit betekent dat het 
zeadea ea oatvaagea dan met verschilleade 
saelhedea gaat. Ifeii ^oorbeeld hiervaa is 
Viditel. Half-duplex wil zeggen dat er in 
twee richtingen informatie over de lijn 
kan gaan, maar nooit gelijktijdig. In dit 
geval wordt het signaal RTS gebruikt om 
aaa te g«¥«a dat de computer wil gaan 
zeadea waama het fsodem de lijn omschakelt 
vaa oatvaagen op zeniaaa ea het CTS-sigaaal 
aaa de computer teruggeeft. 

Bij de communicatie met andere systemen is 
de saelheid vaa overdracht van belaag. 
Immers hoe sa«ller de verbinding, hoe 

•lager de telef oonkosten. De snelheid van 
een verbinding wordt aangegeven door de 
zogenaamde bitrate. Meestal wordt ook de 
aaam baudrate hiervoor gebruikt doch 
strikt geaomea is dit aiet juist. let 
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getal dat opgegeven wordt, is het aantal 
bits per seconds dat getransporteerd kan 
worden. Indien er normaal ASCII overge- 
sEaurd wordt, is het aantal tekens dat 
aaxlmaal per seconde overgestuurd kan 
worden hierv^att Sen tlende. In Nedetfland 
wordt er eigenlijk alleen gebruik gemaakt 
van de door de CITT ge specif iceerde 

V21: 300 bits prnx. aeconde full-duplex 

V22: 1200 bits f«? ^ecsade full-duplex 
V22bls: 2400 bits per seconde full-duplex 
V23: 1200 bits per seconde 75 bits 

per seconde back channel 

V23 wordt onder andere gebruikt voor 
fiditel -van de Fff. Naar alle waarschijn- 

lijkheid, zal ons Bulletin Board de normen 
V21, V22 en V23 gaan ondersteunen. V22bis 
is momenteel kostentechnisch nog niet 
haalbaar omdat de daarvoor benodigde 
modems nog te duur zijn. 

Bij het opbouwen van een full-duplex ver- 
binding, is het noodzakelijk dat de beide 
modems in een ve r schillende toestand 
staan. Dit heeft te maken met het feit dat 
er voor de twee richtingen twee verschil- 
i&m4m. dtaAggaliT'en leatieir'S) geb^i-uikt 
worden. Voor V23 worden dan bovendien 
verschillende snelheden voor zenden en 
ontvangen gebruikt. Meestal is het zo dat 
men de opbeller in de Originate en de 
opgebeXde in de Answer mode zet. 

Als er voor de communlcatle gebruik 

gemaakt wordt van V23, dan kan de computer 
minder snel zenden dan ontvangen. In het 
algemeen wordt dit ook wel "Split 
Baudrate" genoemd. Nu zijn er een aantal 
IC's waarondeir de 6551 die dit nlet op 
eenvoudige wijze kunnen verwerken. Om deze 
reden zijn een aantal modems ultgerust met 
een interspeeder die er voor zorgt dat 
modem en computer toch met slechts een 
Snelheid van 1200 baud ontvangen en 
ferzojideij, kan worden. Vanwege het feit dat 
het Modem dan nlet of voile snelheld 
tekens toegestuurd mag krijgen, is het 
meestal noodzakelijk het signaal CTS van 
het modem op de computer aan te sluiten om 
ervoor te zorgen dat het modem de 
dat ast room kan onderbreken. 

Bij het aanschaffen van een modem komen er 

nog een aantal kreten om de hoek kijken 
die ik hier beknopt uit zal leggen: 

AUTO ANSWER: 

Het modem kan zelfstandig de telefoon 
opnemen en communiceren met een ander 
modem. Aan de kant van het Bulletin Board 
staat het modem dus in deze toestand. 



Commiinicatie 

AUTO DIAL: 

Vanaf de computer kan een telef oonnummer 
naar het modem gestuurd worden waarna het 
modem de telefoon van de haak neemt en dit 
nummer belt. Of hij dit doet door middel 
van tonen (drukknop-telef oon) of door 
middel van pulsen (kiesschijf) kan vaak 
ingesteld worden. Overigens kan nog niet 
op alle telfooncent rales door middel van 
tonen gekozen worden. Pulskiezen kunnen ze 
echter allemaal. 

AOTft filAL BACK: I 
Deze optie wordt gebruikt om een systeem 
tegen inbraak te beveiligen. Het systeem n 
wordt opgebeld, de opbeller geeft in wie 
hij is waarna het modem, als hij de i 
opbeller kent, dit fersiQicai. teeiigl^U.* . | 

AUTO BAUDRATE DETECT: 

In dit geval kan het modem uitzoeken welke 
V norm het modem aan de andere kant 
gebruikt . 

PASSWOlEb: I 
Om vanaf het modem een verbinding met de 
computer te krijgen, moet er eerst een 
wachtwoord ingevoerd worden. Dit uiteraard 
ook ter bescherming tegen inbraak in het 
;c<@iB^tttetsy«teem* 

HAYES PROTOCOL: 

Om een modem te programmeren, moesten er 
vroeger schakelaars en/of jumpers inge- 
steld worden. Tegenwoordig kan dit r#Sff 
de computer over 4© ver binding fms»en 
cooputeir en modem gedaan worden. De 
instructies die men dan aan het modem 
geeft, zijn vastgelegd in het HAYES- 
protocol. In de HCC-nieuwsbrieven nrs. 96 
en 97 staat dit protocol beschreven. 

Ingeval men van het Hayes-protocol gebruik 
wil maken, kan er nog een eigenaardigheid 
om de hoek komen kijken. Bij de 6551 en 
mogelijk ook nog andere ACIA's is het 1 
onmogelijk data te ontV^afen als DCD niet 
aanifezig is. Een modem geeft pas DCD als 
er daadwerkelijk een verbinding opgebouwd 
is. Dit betekent dat informatie, o.a. de 
echo van de Hayse-coramando's en status- 
informatie, niet op de computer binnen- 
komt. In de praktijk kan men dit oplossen 
door aan de com|ttle:jpitagC DCD met DTR te 
verkLnden in pXaats vm wet het stocteai^ 

Behalve een modem hebt u ook nog software 
nodig om met een Bulletin Board te commu- 
niceren. In de eerste plaats moet u inlog- 
gen op het andere systeem. Dit wo^dt 
meestal gedaan door een zgn. terminal 
emulator te gebruiken. Het remote systeem 
ziet uw systeem dan als een terminal. Dat 
betekent dat datgene wat u intikt, doorge- 
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stuurd wordt via het modem naar het remote 
Systeem en datgene wat het remote systeem 
stuurt, weer zichtbaar wordt op uw beeld- 
scliiBwm. ferder is het handlg een programma 
te hebben waarmee files overgestuurd 
kunnen worden. U kunt dan files op het 
remote systeem schrijven (uploaden) en 
files van het remote systeem ophalen 
(downloaden) . Dergelijke program««'s 
werken dan altijd met behulp van een 
protocol. Dit protocol moet ervoor zorgen 
dat de informatie op een zodanige manier 
uitgewisseld wordt dat er geen informatie 
verloren gaat of verminkt aankomt. De 
bekendste protocollen voor file-transfer 
zijn: ASCII, XMODEM en KERMIT. Van deze 
protocollen is ASCII het minst geavanceerd 
en betrouwbaar en KERMIT waarschi jnli jk 
het meest geavanceerd. Bovendien bevat een 
KERMIT-implementatie meestal ook een 
terminal emii,l«tor €» enige verdeze hulp- 
mlddelen mm communlcatie z# soepel 
mogelijk te laten verlopen. 

KERMIT en XMODEM zijn voor bijna elk 
systeem verkri jgbaar; KERMIT slnds kort 
ook voor DOS-65. 



Communlcatie 

Ik hoop, dat voor het geval u het nog niet 
bent, u ook een modemmer wordt en veelvul- 
dig gebruik zult maken van ons Bulletin 
Board. Het bezit van een modem beef t 
echter §§n heel belangrijk nadeel: De 
telef oonrekening vertoont meestal, na de 
aanschaf van een modem, een sterke 
stijging. Weliswaar zijn de telef oonkosten 
in het weekend en na zessen bliJ»ten de 
eigen regio "slechts" 15 cemt fer 90 
seconden maar een half uur betit u snel 
ingelogd op een Bulletin Board en dat kost 
u dan f. 3, — !! Dit is slechts voor een 
deel op te lossen door de hoogst mogelijke 
snelheid die uw modem en het Bulletin 
Board toelaten te gebruiken; Wilt ii geea 
files uploaden maar alleen inforaatle 
ophalen, dan kunt u, als uw geen V22 kunt 
gebruiken, beter V23 kiezen dan V21. U 
ontvangt dan de informatie drie keer zo 
snel als op 300 bps full-duplex. 

Voor het geval u nog vragen, opmerkingen 

of aanvullingen heeft, kunt u mij bereiken 
op het bekende adres en telef oonnummer, 
ons Bulletin Board en eventueel op Fldo 
Alkmaar . 



.OaOtoOsQwC^-OaOaOsO-rOsOiBOaiO. Hafd WaTG 

I 

HET VERVANGEN VAN 8K RAMS DOOR 32K RAMS OP DE SRAMKAART UIT ELEKTUUR MRT 1983 

Onlangs elimineerde ik helaas een aantal statische rammetjes van 8kx8, die 
blijkbaar niet van een gezonde 5 V geschakelde voeding hielden, maar een 
oude 'bak" 4fe 4.# V levert, prefereerden. Inmiddels is een 32Kx8 SBIAM (bv: 
84256) goedkoper dan 8kx8 SRAMmetjes (bv 6264) zodat ik besloot om vier 8ks te 
vervangen door een 32k Cmos ram. Onderstaande methode mag alleen toegepast 
worden als de geheugeidcaart is opgebouwd voor Cmos-rams. (o*c. TTL) 

Vervangen van eerste vier 8kx8 ic's door een 32kx8 ic: 

le. MnsM peii 26 vrij , verblni Mierbroken printbanen door, en maak pen 26 

(A13) vast aan pen 6 van IC 1. 
2e. Maak pen 1 vrij, verbind de onderbroken printbanen door, en maak pen 1 

(414) Vttst aan pen 12 vm XCl* 
3e. Verbind pen 9, 10, 11 en 12 Vsa IC 5 met elkaar. 
4e. Verwijder R29, R30, en R31. 

Het vervangen van de andere rams gaat op analoge wijze. 

Personen die nog een nieuwe SRAM-kaart gaan bouwen hoeven maar 2 Cmos rams 

t'# k#peii'« 

Ref : Elektuur maart 1983: "Universele geheugenkaart" 

B. de Bruine 



ttalg l<j«-65: 

Wie heeft er macro's voor AS geschreven am een Cmos 65C02 te emuleren op 
een standaard 6502 ? 
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DOS65-Corner 



lO-Jul-S? 15:12 fea^rge.ist 1 



AOOO 
AAOO 
COOO 
E7QQ 

E711 
E793 
1713 

COOF 
C068 
DOOO 
D03F 
D048 
D09F 
D0B7 
ABEO 

0004 
0015 



§0$Q 4C OFAl 



Dates 



Written by 



ba@njerge«B«jg * merges m W&ii fiftiic program 

9-6-87 first version 

12-6-87 options -2 and -3 ij^sded 

22-6-87 embellished a bit 

Pieter de Visser 
Nijverheidslaan 6 
5506 EE Veldhoven 



■niis little program is meant to be used in eeeafelnatiejpi \*ith D(3S65-&tsie. It 
purpose is to merge an ascii program. In order to achieve an eas 
cooperation with basicode, options -2 and -3 are provided. Option -2 cause 
file bas2.bas to be loaded first (typically, this contains the (tokenized! 
basicode-2 routines), option -3 does the same with file bas3.bas (of courses 
these tmma may be shaded if the ecmtines reside in oth^ files). It is nd 
allowed to use both options simultaiveaixsly. 

After assembling basmerge.mac, renaming the object file M|© jbasp^es^e an 
storing it as a command on the system drive, it can be calSei ift aSHtic by 
dos "basm [-23] <filename>''. 



startad equ 
dosmem equ 
dos equ 

if^aQt &^ 

dv^^S'^qu'" 
torkvec equ 

sync equ 

sopt equ 

sread equ 

open equ 

close equ 

setfiln equ 

doserr equ 

namb equ 



e4 
el5 



Iday 



stay 



lea 



equ 
equ 



macro 

Idy 

Ida 

macro 
sty 

sta. 



SaOOO 
»aaOO 
ScOOO 
?e700 

IdimttifSll 
ioraiiH-S93 
ioraii|b3 

dos+SOf 

dos+S68 

dos+SlOOO 

dos+Sl03f 

dos+Sl048 

dos+Sl09f 

dc»'t^|10b7 

dosraait^^leO 



ad 
ad 
ad+1 



start addre^ ^ program 
dos work m^a@iiy 
dos junp teu!>Ie 
io65 work memory 

active imot deviee 
vect^ for devlee #8 
^»^eik vector 

t^ose all files 
scan options 
read single byte 
open file 
close file 

get filename in nanto 
dos enror entiry 
filemme buffer 

error number for readinc 
error niraiber for invalic 



use M tm words 



past ^n&' of 
options- 



macro 



A003 
AOOB 
A037 
A0S9 
A0a2 

mm 

AOBF 



C8C5CCD04C 
5768656E20 
53796E7461 
4F7074696F 
2020202020 
4162627265 
4578616D70 
5^8697320 



AlOF 20 68C0 



bcu^ 



Ida 
en(^ 



org 

jmp 

fee 

foe 
fee 
fee 
fee 
fee 
fee 
fee 

jsr 



ad 
ad 
ad+1 



ad 

#ad&255 
#ad»8 



startad 
basm 



; skip help data 

Se8,$c5,Sce,$dO,'LLL\r' ^ , 

When ©ailed in Bcusic, merges aui aiseii file.\r 
'Syntax i SASMERGE [-23] filenaune\r , , 
'Cfetic^ : -2 : First load file ]^®2.b^.\C^ 
-3 : First load file bas3.bas.\r 
'Abbreviation : BASM\r' 

'Example : dos "BASMER^ -2 junk"\r . , , , , „ 
'This will load bas2*bas and merfe file 3unk.\r\r /O 

sopt ; scan options -2 and -3 
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A112 
Alls 
A117 
A119 
AllB 
AllE 
A121 
A123 
A125 
A128 
A12B 
A12D 
A12E 
A130 
A132 
A134 
A137 
A13A 
A13D 
A13F 
A142 
A145 
A147 



323300 
BO 30 
EO CO 
FO 2A 
8E 45A2 
20 9FD0 
BO 24 
AO 00 
B9 EOAB 
99 4AA2 
FO Oft 
C8 

CO OE 
DO F3 
A9 00 
99 4AA2 
20 4AA1 
AE 45A2 
FO 03 
4C A6A1 
4C BDAl 
A9 15 
4C B7D0 



3 

opterr 
orerr 



fee 
bcs 
cpx 
beq 
stx 

DCS 

Idy 
Ida 
sta 
beq 
iny 

bne 

Ida 
sta 
jsr 
Idx 
beq 
jmp 

jmp 



'23', 0 
oferr 
#$cO 
opterr 

opt 

setf iln 

oferr 

#0 

namb,Y 

filenm/V 

2*£ 

#14 
l.b 

#0 

filenin,y 
setup 
opt 
3.f 

redinpt 
redinpp 
|el5 
ooserr 



options error ? 

options not allowed simultaneously 

store pattern 

get filename in namb 

&ac&c in til&mm 7 



copy filename to filenm 

copy until zero, truncate to 14 characters 



; trailing zero 

; set up input vectors 

; option choosen/ go echo text 

; no options, go for program immediately 

; error in options 

; error in options or filename 



; redirect input through device 8 



A14A 08 
M4B 78 



A162 28 
A163 AD 11E7 
A166 8D 59A2 



A175 A9 01 
A177 8D 11E7 
A17A 60 



setup 



php 

sei 

Iday 

stay 

lea 

stay 



Lda 

sta 

Iday 

stay 

Ida 

sta 

rts 



brkvec 
sbrkvec 
brkrout 
brkvec 

devmodir^ 
sdevmodinp 

dvi8vec 

sdviSvec 

#$01 

devmodinp 



let breakvector point to brkrout/ 
saving old one (just for sure) 



save current ir^t devices pattern 

save current input device 8 vector 

activate input device 8 
(new vector not fixed yet) 



; restore normal input 



A17B AD 59A2 
A17E 8D 11E7 



A18D 08 
A18E 78 



A19B 28 
A19C 60 



restore Ida 
sta 

Iday 

stay 

php 

sei 

Iday 

stay 

EiP 
rts 



sdevmodinp 
devmodinp 
sdvi8vec 
dvi8vec 



sbrkvec 
brkvec 



; restore old input devices pattern 
; restore old input device 8 vector 

; restore old breakvector 



A19D 20 OFCO 
AlAO 20 7BA1 
A1A3 6C B3E7 



; break routine 

brkrout jsr 
3sr 

imp 



sync 

restore 

[brkvec] 



close all open files 
restore normal input 
execute normal breakroutine 



AlBO A9 00 
A1B2 2C 45A2 
A1B5 50 02 
A1B7 A9 00 
A1B9 8D 46A2 
AlBC 60 



I redirect input via device 8 to routine eehotxt 



redinpt lea 
stay 
Ida 

bit 

bvc 
Ida 

1 sta 
rts 



eehotxt 
dvi8vec 
#0 
opt 

iTf 

#txt3-txt2 
ptxt 



set new input device 8 vector 

set pointer to start of text to be echoed 
(txt2 or txt3/ dependent on options) 



21 



DOS65-Corner 



30-Jul-87 IS: 18 basmerge.lst Page 3 



AlCB A2 81 
AlCD 20 3FD0 
AIDO BO 04 
A1D2 8E 47A2 
AIDS 60 
A1D6 20 B7D0 
A1D9 4G 7BA1 



; redirect input via device 8 to routine echopgm; if redireetlon 



Store file descriptor in pfd/ else call restore. 

; set new input device 8 vector 
; open specified file, must be ascii 



redinpp lea 
stay 
lea 
lax 
jsr 

DCS 
StX 

rts 

1 jsr 
3inp 



echopgm 
dviSvec 
filenm 
#$81 
open 
iTf 
pfd 

doserr 
restore 



; open failure ? 

; store file descriptor 

; report error 

; restoire normal input 



; echo one text character to Basic; when whole text is done, call redinpp 



AIDC 8C 
AIDF AC 
A1E2 B9 
A1E5 FO 
A1E7 EE 
AlEA AC 
AlED 50 
AlEE BE 
AlFl 20 
A1F4 AE 
A1F7 AC 
AlFA A9 
AlFC 60 



49A2 echotxt sty 

46A2 Idy 

2BA2 Ida 

07 beq 

46A2 inc 

49A2 Idy 
rts 

48A2 1 StX 

EDM jsr 

48A2 Idx 

49A2 Idy 

OD Ida 
rts 



savy 

ptxt 

txt2,y 

l.f 

ptxt 

savy 

savx 

redinpp 

savx 

savy^ 

#'\r' 



; X and Y are preserved 

; get character 

; vrfiole text done ? 

; adapt pointer 

; retux^ ch^acter to Basic 

; try to redirect input to file , 

; if attmgt failSf normal mjait is restored 

; retvom dumny diaracter to Basic 



echo one character from the file to Basic; r^tore input on m6i of file 



AlFD 
A200 
A203 
A206 
A209 
A20B 
A20E 
A211 
A212 
A214 
A216 
A219 
A21C 
A21F 
A222 
A225 
A228 
A22A 



8E 48A2 
8C 49A2 
AE 47A2 
20 OODO 
BO 07 
AE 48A2 
AC 49A2 
60 

C9 04 
FO 03 
20 B7D0 
AE 47A2 
20 48D0 
20 7BA1 
AE 48A2 
AC 49A2 
A9 OD 
60 



echopgoEi stx 
sty 

Idx 

^s 
Idx 

Idy 
rts 



1 

2 



cmp 
beq 
jsr 
Idx 
jsr 
-|sr 
Idx 
Idy 
Ida 
rts 



savx 
savy 
pfd 
sread 

1. f 
savx 
savy 

#e4 

2. f 

doserr 

pfd 

close 

restore 

savx 

savy 

#'\r' 



preserve X and Y 



read byte 
error 7 



if error is not end of file/ report it 
close file 

restore normal input 

return dummy character to Basic 



texts to be echoed to Basic 



A22B 6C6F616420 txt2 fee 
A238 6C6F616420 txt3 fee 



'load "bas2"\r',0 
'load "bas3"\r',0 



A245 
A246 
A247 
A248 
A249 
A24A 
A259 
A2SA 
A2SC 



res 1 

res 1 

res 1 

res 1 

res 1 

res 15 

sdevmodinp res 1 

sdvi8vee res 2 

sbrkvee res 2 



opt 

ptxt 

pfd 

savx 

savy 

filenm 



; options pattern 

f pointer to next text character 

; file descriptor of ffcx)gcmm file 

; tes^rary stores for X ana Y 

; space for filename specified in command 

; temporary stores for de\miodinp» dviSvec and 

: brkvec 



AlOF 



end 



ba^n 
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Echte Proi^raw^TV^^ gebnjiken prppn PftST.AL. 

(Vertaling: Nico de Vries) 

In de goede oude tijd - de Gouden Eeuw 
der Computers - was het gemakkelijk de 
mannen van de jongens (in de literatuui* 
ook wel Echte Mannen, respectievelijk 
Soesjeseters genoemd) te onderscheiden. 
In deze periode waren de Echte Maanen 
degenen die in de gaten hadden wat tssm- 
puter progranuneren was, terwijl de 
Soeslesetera daar Abaoluut geen kaas van 
gegetes haddea. Be e^hte computer pro- 

franmeurs zeiden dingen als: 'DO 10 
=1,10' en "ABEND" (zeals u ziet spraken 
Zii uitsluitend in hoof diet ters) , ter- 
wijl de rest van de wereld dingen als 
•oomputers zijn voor ons eenvoudig te 
iagewikkeld ' en 'ik heb geen voeling met 
computers, - ze zijn zo onpersoonIi41s ' 
ultkraamde. (Echte Mannen tonen i^lt 
hm gevoelens, m s^iia ook nooit baog cm 
oapersoonlijk ta noraeit) . 

Maar, zeals meestal, veranderen de t±i- 
den. TegeiiMGWdl^ worden we met een 
wereld geconfrmieerd waarin kleine oude 
dametjes een computer la hua magnetron- 
oven hebben. 12-jarige snotjochies 
steken de Echte Manaea de loef af met 
het spelen van PacMaa ea Asteroids, ter- 
wijl iedereen zijn eigen Personal 
Computer kan kopen en er nog mee om kan 
leren gaaa ook. De Echte Programmeur 
dreigt uit te stervea ea te wordea ver- 
vangen door HAVO-leerllagen met Aeorn 
Atoms en CBM-64*s. 

En zo ontstaat er eea hevige behoefte 
het verschil tussea eea gemiddelde 
junior PacMan-speler en eea Echte Pro- 
grammeur duidelijk vast te leggea. Als 
dit verschil duidelijk wordt, zal de 
Echte Programmeur iemand zijn om tegeaop 
te zien en te bewonderea: eea soort 
Vaderfiguur. Het zal de werkgevers vaa 
Echte Programmeurs duidelijk makea 
waarom het rout is om Echte Programmeurs 
te vervangen door PacMan-spelers (of- 
schoon dit een aardige besparing in 
salariskosten teweeg zou brengen) . 

Programneertalen . 

Het meest duidelijke verschil tussea 
een Echte Programmeur en de grijze massa 
wordt gevormd door de programmeertaal 
die Hij of Zij gebruikt. Echte Program- 
meurs gebruiken FORTRAN. Soesjeseters 
gebruiken PASCAL. Nicklaus Wirth, de 
ontwerper van PASCAL werd tijdens het 
geven van een spreekbeurt eens gevraagd: 
'Hoe spreekt men uw naam uit?'. Hij 
antwoordde: 'U kunt mij bij mijn naam 
noemen door 'Veert' te zeggen, of mij 
aanduiden middels mijn waarde door 
'Worth' te zeggen'. Aan deze stijlloze 
opmerking kan men onmiddellijk zien, dat 
Nicklaus Wirth een Soesjeseter is. De 



enige parameter-passingtechniek die 
door Echte Prograimneurs gebruikt wordt 
is die met registers, zoals toegepast 
in de IBM/ 370 FORTH AN-G en -H com- 
pilers. Echte Programmeurs hebben al 
die nieuwe abstracte concepten in 
PASCAL niet van node om hun software de 
klus te laten klaren; zij zijn volkomen 

felukkig met eea poasmachine, een 
ORTRAN n otfflipiler ea eea biertje. 

- Echte Programmeurs doea list proces- 
sing in FORTRAN. 

- Echte Programmeurs doea sfcriagaaaipu- 
latie in FORTRAN. 

- Echte Programmeurs doen de boekhou- 
ding (als ze die tenminste hebben) in 
FORTRAN. 

- Echte Programmeurs oatwikkelea kunst- 
matige intelligeatie prograDaBatuur in 
FORTRAN. 

Als het niet in FORTRAN kan, doe het 
dan in machinetaal. Als het niet in 
aachinetaal kaa, is het aiet de moeite 
waard het te prograiMlNr^. 

Gestruetiireerd proitrTiBMriNiMa:. 

De academlci in computerkunde hebben 
ervoor gezorgd, dat 'gestructureerd 
programmeren ' de laatste jaren in de 
mode is geraakt. Zij claimen hierbij, 
dat programma's gemakkelijker te be- 
grijpen zijn wanaeer de programmeur 
zich bedient vaa een aantal speciale 
taalconstructies en -techaieken. Deze 
aeademici zija het aatuurlijk niet al- 
leaaal met elkaar eens over WELKE 
Structuren wel of niet gebruikt mogen 
wooden. De voorbeelden die zij daarbij 
&|d bewijs aaavoerea passen steeds op 
psa eakele paglaa van een of ander ob- 
atsmr blaadje: duidelijk te weinig 
bewijs m »ie daa ook te overtuigen. 
Toea lie ^aa school kwam, dacht ik dat 
ik de beste programmeur ter wereld was. 
Ik koa programmeren, sprak vijf compu- 
tertalen, en kon 1000-regelige program- 
ma's schrijven die nog werkten ook. 
C4g* eaUt^ iBSar) . Toen belandde ik in de 
i@ice ter«ld. Mijn eerste taak in de 
Echte Wereld was het lezen en begrijpen 
van een FORTRAN programma van 200.000 
regels, waaraa dit programma met een 
factor twee versneld moest worden. Elke 
Echte ?rograimmP kaa je vertellen dat 
al het gestruettireerde geprogrammeer ^e 
bij zo'n probleem van ae wal m de 
sloot helpt: dit vereisf feleat. Hier 
zijn eea patar bespieg^llaffefi over Echte 
Programmffltt'S «i i|gi.faciwi?tiiri fr©iratt- 

- Echte Programmeurs zijn niet bang 
voor gebruik van 0OTO*s. 
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a- Echte Prograunmeurs kunnen 5-pagina 
lange DO-loops sohrijven zonder in de 
war te raken. 

- Echte Programmeurs houden van Beken- 
kundige iF-statements: Mt lev'ereQ 
prachtige code op. 

- Echte Programmeurs sohrijven selfmodi- 
fying code, in het biJaonder waaneer 
dit 20 ns in het ffllditfei ran eett kleih 
lusje bespaart. 

- Echte Programmeurs sohrijven seen com- 
mentaar: de code is toch auidelijk 
genoeg . 

•» Aangezien FORTRAN geen gestruefeur^ei^e 
IP's, REPEAT... UNTIL of ©til^tafce- 
ments heeft, worden deze zaken tti«t 
door Echte Programmeurs gebraikt, 
Bovendien kunnen de^e structuren als 
zij echt nodig zija gesianileerd worden 
door het gebruik van assigned GOTO's. 

Datastructuren kregea dl« laatste tijd 
helaas behoorlijk mt asadacht in ae 

Sers. In bepaalde kringen zijn Abstracte 
ata typen, Structuren, Pointers, Lists 
en Strings populair geworden. Wirth (de 
bovengenoemde Soesjeseter) schreef zelfs 
eea im»l boek waarin beweerd 4at Je 
zeifjl ften programma gehasmm Gp 
stpwtttrea J3<@to'iJi^ plaats iraa 
andersom. Siiai Mli l&ifte Programmeurs 
allang weten, is de enig nuttige data- 
structuur Het Array. Strings, Lists, 
Structuren en Sets, het zijn allemaal 
speciale gevallen van Het Array. Zij 
kunnen dus ook op die manier behandeld 
worden zonder Je hele programmeertaal te 
verzieken met allerlei soorten ccnigpli- 
caties en andere ingewikkeldheden. Het 
meest verschrikkelijke van deze kromme 
datatypes is nog wel, dat je ze eerst 
moet declareren, en dat terwijl Echte 
Programmeertalen , zoals wij reeds alien 
weten, impliciete datatypes hebben, ge- 
baseerd op het eerste teken van de zes 
kar ak ters lapg#, variabelenaam . 

Ooeratlnit Syatafte. 

Echte Programmeurs gebruiken geen MS- 
DOS of CP/M: dit zijn speelgoed ope- 
rating systems. Zelfs oude dametjes en 
leerlingen van de lagere school kunnen 
dit soort @#«r<aMxm stys^mm hmgiei^ipen, 

UNIX (dit is het tegengestelde van: wij 
alles) is natuurlijk aanzienlijk gecom- 
pliceerder -de typische UNIX-gek kan 
nooit onthouden hoe het PRINT -commando 
deze week ook weer heet- maar als je 
goed kijkt is UNIX een geweldig mooi 
videospellet je . Er wordt zelden serieus 
gewerkt onder UNIX: men stuurt de laat- 
ste grappen naar de andere kant van de 
wereld over het UUCP-net. Als er geen 
grappen meer zijn schrijft men verder 
aan het laatste adventure of werkt men 
zijn verslagen bi.J. 



Nee, de Echte Progreumneur gebruikt 
OS/370. Een Echte Programmeur kan de 
betekenis van de IJK3051 foutmelding 
die hij zojuist kreeg vinden in zijn 
Job Control Language manual en deze nog 
begrijpen ook. De betere Echte Program- 
meur kan Job Control Language sohrijven 
zonder in het handb^)^ te spieken. Het 
aeusje van de zalas oilier de Echte Pro- 

grammeurs kan de bugs vinden in een 6 
egabyte core dump zonder hun hex cal- 
culator te gebruiken. 

OS/370 is wer*:eliifc een opmerkelijk 
operating system. Bet Is eenvoudig mo- 

felijk vele mandagen werk te vernie- 
igen met slechts T misplaatste spatie. 
Dit verhoogt de oplfitteadbeid biji bet 
programmerend perstHSeil «Qorm. Imu 
het systeem het best benaderen via 
ponskaarten. Sommigen beweren dat er 
een Tim Sharing spt^effl Itestaal^ dat op 
0S/37t draait, mmir m ti»)npiildlge 
studle itm ik er achter gekomen, dat 
dit waai*Scthijnlijk een vergissing is. 

Prograameerhulpen . 

In theorie Hia een MW» fr&gmmsm»' 
zijn programma 's laten uitvoeren door 
ze op het frontpaneel van de computer 
in te toetsen. Vroeger, toen computers 
nog frontpanelen hadden, werd dit wel 
eens ged««J3. De typische i@|}te 
Progratimetir vulde het geheugen direot 
in hex, en uit het hoof a. In het geval 
dat het programma crasbte, veranderde 
hij het ook uit het hoofd« (loea wsts 
geheugen nog Geheugen: het oatMeld 
aXles, of er nu spanning op stond of 
niet. Tegenwoordig vergeet het geheugen 
alles wat beslist noodzakelijk is, of 
bewaart het juist als je het allang 
niet meer nodig hebt } . Er bestaat een 
legende over Seymour Cray, de uitvinder 
van de Cray I en de meeste andere 
Control Data computers, die inderdaad 
het eerste operating system voor de 
CDC7600 uit het hoofd in hex op het 
frontpaneel van die computer invoerde 
toen deze machine voor net eerst werd 
ingeschakeld. Het is duidelijk: Seymour 
Cray is een Echte Programmeur. 

Er zijn inmiddels bedrijven waar tekst 
editing niet langer bestaat uit een rij 
van tien ingenieurs die staan te wach- 
ten bij de ponsmachine. De Echte Pro- 
grammeur doet dit werk tegenwoordig met 
een 'tekst-editor • . Zeer velen geloven 
dat de beste tekst-editors ter wereld 
werden geschreven bij Xerox Research 
Centre om op hun Alto en Dorado com- 
puters te worden gebruikt . Helaas is 
het zo, dat geen enkele Echte Program- 
meur het in zijn hoofd zal halen een 
operating system te gebruiken dat de 
naam SmallTalk draagt. Ook zullen zij 
nooit met een computer communiceren via 
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een isuis. (XL hiks aile^ta maar van- 
wegtt #9 kat) . 

Sen nadeel van tekst-editors is dat 
Eehte Programmeurs het idee hebben too: 
*wat je ziet, dat krijg je ook'. mm, 
dit bij vrouwen ook niet opgaat, viitacta 
Eolite Programmeurs ffiofloeept getuigen 
vaa slecht prograiiliieei^rk . Nee, de 
Ecbte Prograumneur prefereert de 'je heb 
erom gevraagd, dus heb je het gekregen'- 
beaadering bij tekst-editors. Dit maakt 
20 'n ding gecompliceerd, cryptisch, 
krachtig, onvergseflijk en geiraarlijk 
tegelijk. 

Echte Progreimmeurs aarzeXen nogal om 
een programma- ^ Ipse Vftraiicl^sa als het 
bijna werkt. fiet l^i tmm^ veel gemak- 
kelijker de binaire object code direct 
te patchen? Dit gaat zelfs zo goed, dat 
de meeste werkende programma's totaal 
geen verband meer vertonen met de oor- 
spronkelijke FORTRAN sourcfti-'t^alt.. Ook 
Is in veel gevallen die smo^'^ti^St 
niet eens meer beschikbaar. Als het 
nodig blijkt een dergelijk programma aan 
te passen, zal geen enkele jaana^SKt ^ 
ook maar even aan denken om eeii' Miiii#r 
persoon dan een Echte Progrsumneuif: 
klus te laten klaren: SoesjesetSBda 
gestructureerde prograumneerders zouden 
niet eens weten waar ze moesten begin- 
nen. Dat is mmi wmt, je noen% 'j^* secu- 
rity* . 

Hier zijn een paar programmeerhulpen die 
absoluut NIET door Betefe® EpfiipOTMurs 
gebruikt worden: 

- FORTRAN preprocessors, zoals MORTRAN 
en RATFOR. De chef-koks in program- 
meerwerk: schitterend voor het maken 
van Soesjes. 

- Source level debuggers. Echte Program- 
meurs kunnen immers dumps lezen. 

- Compilers met array-grens-controle . 
Deze beperken de creativiteit onnodig, 
vernietigen de meeste interessante 

' toepassingen van EQUIVALENCE en maken 
het onmogelijk de code van het ope- 
rating system te wijzigen met nega- 
tieve subscripts. Bovendien is alle 
controle een vorm van in-effici»ntie. 

- Onderhoudssystemen voor source-tek- 
sten. Een Echte Programmeur bewaart 
zijn code in een stapeltje ponskaar- 
ten, omdat het duidelijk zal zijn dat 
de Schepper zijn belangrijke program- 
ma's geen moatent alleen kan laten* 

BB Bebfee Progru Mi iii inn het v&^Bim 

Geen enkele Echte Programmeur zou ooit 
betrapt kunnen worden bij het schrijven 
van boekhoudprogramma ' 3 in COBOL, of bij 
het sorteren van mailingli jsten. Een 
Echte Programmeur houdt zich uitsluitend 
bezig met taken van wereld-belang. 



- Echte Programmeurs werken voor het 
Alamos National Laboratory, waar zij 
op Cray I computers simulatiesoftware 
schrijven die de atoombom kan 
simuleren. 

- Echte PrograiBOAurs werken bij de BVD, 
waar zij Russische ult2€tMil^en 
decoderen. 

- Het was uitsluitend aan duizenden 
Echte Progranaoeurs te danken dat de 
Amerikanen eefi oaM op de maan en weer 
tertig brachten voordat de Russen dat 
konden. (Niemand zal een PASCAL navi- 
gatiApPOgz^amma (of de Sees jesetende 
aut«ar hx«pvan) de klus toevertrouwen 
vanwege de vereiste nauwkeurigheid in 
deze toepassing). 

- Echte Programmeurs werken bij Boeing 
waar zij aan operating systems voor 
kruisraketten werken. 

Zeer veel Echte Programmeurs werken 
bij de Amerikaanse overheid. Kort gele- 
den echter, heeft zich een grote zwarte 
wolk gevormd aan de horizon van de 
Echte Programmeur. Het is namelijk 

Sebleken dat een aantal hooggeplaatste 
oesjeseters bij het Ministerie van 
Defensie aldaar hebben besloten dat 
all« software voor Defensie geschreven 
sioet worden in een genormaliseerde taal 
die 'ADA' heet. Het leek er even op, 
dat ^A e«l taal zou worden die in- 
dFUi&te j^e^SQi ije4#r instinct van de 
EeHfc© 'fr^^fmmmr-i gestructureerd, met 
datat^^i est puitk<»nna's« 0| om kort te 

faan: &m taal die de gii»<^e creativi- 
eit van de Echte Prograaaneur volslagen 
in de grond zou boren. Gelukkig blijken 
er ook eea i^tal interessante en posi- 
tieve kaatefi aan deze taal te kleven: 
het is onnoemelijk ingewikkeld, heeft 
ingebouwde mogeli jkhedett • sai het ope- 
rating system t© verzieken en de geheu- 
genindeling te fliPWIderen , en, last but 
not least, de .iMMM?>>Mjkstra houdt er 
niet van. (Zoals m nisschien weet, is 
Dijkstra de aut^i s*a het boek 'De 
schadelijke GOTO' ?^ «Nia aijlpaal op het 

febied van prograaaMpaapwfebodologieen. j . 
rouwens: de vastb«N««* Ichte Program- 
meur kan FORTRAM piagi^wsma's iehrjyyen 
in iedere taal. 

Het is mogelijk dit4 4e Ichte Program- 
meur zijn principes een eindje aan de 
kant zet en aan lets werkt dat lets 
meer triviaal is als de totale ,ver- 
nietiging van het leven zoals wxj dat 
nu kennen, op voorwaarde dat er geld 
mee te verdienen is. Zo zijn er een 
aantal Echte Programmeurs gesignaleerd , 
die videospelletjes schrijven bij 
Atari. (Echter niefc cwi «e fee j^fX^i de 
Echte Programmeur w#et iBBBef^s noe ae 
machine altijd verslagen kan wordett, 
dus dat is geen uitdaging). De belang- 
wekkendheid van Echte Programmeurs in 
Computer Graphics ligt ietwat beneden 
de norm I maar dit komt omdat er nog 
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geen echte toepassingen zijn voor Com- 
puter Graphics. Daarentegen worden alle 
Computer Graphics in FORTRAN gedaan, 
zodat er een aantal lieden zijn die 
software voor Graphics schrijven om te 
voorkomen dat ze in COBOL moeten pro- 



tet natuurlliiai gedrag iwtti 
t^ogrameur . 

De echte programmeur komt vooral voor 
achter computerterminals . In de omgeving 
vam de terminal vindt men vrijwel 

- Listings van alle programma's waaraan 
de Echte Programmeur ooit gewerkt 
heeft, opgestapeld in bij benadering 
chronologische volgorde op alles wat 
een (enlgszlns) vlakke bovenzijde 
heeft . 

- Tenminste zes half gevulde kopjes met 
koude koffie. Hierin kunnen soma ook 
sigarettenpeuken ronddrijven. 

- Behalve in die gevallen waarin we te 
maken hebben met een uitzonderli jk 
goed getraind exemplaar liggen de OS 
JCL manual en het boek The Principles 
of Operation in de buurt , opengeslagen 
op een interessant hoofdstuk. 

- Een de wand hangt met plakband be- 
vestigd een Snoopy-kalender voor het 
jaar 1969, afgedrukt op de line- 

?rinter. 
n de la van het bureau ligt een sja- 
bloon om flow-charts te tekeaittl, 
achtergelaten door de vorige eigenaar. 
(Echte Programmeurs schrijven program- 
Mi's, en geen d<pe»neixtatlA2 diX Xaat- 
9m doen de ondm^m^mmmm . 

De Echte Programmeur "tssf in' staat gedu- 
rende 30, 40 of 50 uur aaneen te weric^» 
onder hoge druk. Het is zelfs zo, dmt 
hij een dergelijke werkiii^sft pvetermeet. 
Hi J zit niet met eefi ii^^ responstijd: 
dit geeft hem de kans wat slaap in te 
halen gedurende lange compilaties. Als 
er niet genoeg tijddruk op Hem. S#^d 
wordt, dan heeft de Eohte PrograaHiiQr #S 
nelglng om de mUcm Wt^ spannender 
maken door eerst § iteMm te wijden «m 
hm% uitwerken van een uiterst • - 



•Mww v«j.i»tid YOU ecu uj.i>eji-a.b aiMMmmi 

©ttBelangrlJk doch buitengewocit jfl^f^w 
sant detail ia de opdi^a^t, m 'mimr&lf 

fens gedurende #i ]yiitste week #» rest 
e doen in twee etf drie 50 uur mara- 
thons. Dit maakt iiivt alleen enorme In- 
druk op zijn manager die al bang begon 
te worden dat bet project nooit op tijd 
gereed zou zijn. maar geeft meteen een 
prima reden om de documentatie te laten 
2i.J ijs^- Im ^kLs^^Bmmi 

■ ■ MIS M ■ 

•'ftin® enkele Echte Pf^gf^umeur weriet 
Ito 9 tot 5 (behalve als Hij in de 
nachtploeg zit } . 

- Een Echte Programmeur draagt geen 
stropdas. 



- Een Echte Programmeur dra^i^ jgeen 
schoenen met hoge hakken. 

- Echte Programmeurs komen op een zoda- 
ni^ tijdstip op bun werk, dat zij op 



.-.-3d voor de im^^ zijn. 
» Het is niet waarschijnli jk, dat de 
Echte Programmeur weet hoe zijn vrouw 
heet. Daarentegen weet biJ de gebele 
ASCII (of EBCEtC) tabel feilloos uit 
zijn hoofd. 

De Toekomst. 

Het baart de Echte Programmeurs enlge 
zorgen, dat de laatste generatie compu- 
terprogrammeurs niet op dezelfde manler 
worden grootgebraeht als hun ouders. Er 
zijn erbij, die nog nooit een compGd*«r 
met een frontpaneel hebben ge:d^. 
Vrijwel niemand die tegenwoordlg van 
school komt kan nog in hex rekenen zon- 
der calculator. Afgestudeerden zijn 
tegenwoordig zachte eitjes, beschermd 
tegen de Echte Harde Wereld door 
source-tekst debiiggers , tekst-editors 
die haakjes tallen, en 'gebruikers- 
vriendelijke* operating systems. Het 
slechtste is nog wel, dat deze compu- 
terwetenschappers hun diploma krijgen 
zonder dat zii ooit FORTMN hoefden te 
leren. Zijn wig voorb^MmA om een in- 
dustrie met Qijdgsr^EekkeB m PASCAL pro- 
gr&flnettro te 'vtamSmm 

Uit eigen ervaring km eehter mede- 
delen, dat de toekomst voor de Echte 
Programmeur er stralend uitziet. lk>oh 
QS/370, nooh FOBTRAN vertQ»Bit 4Uiiie 
Toortekenen ?«© verdwijning, mSm^mMm 

fezamenlijke imreMiriJde pogt^ea vmn 
A3CAL prograiiBg!mn>8 hiertoe.i ISIifs de 
neer subtiele trues, zoals het toe- 
voegen van gestructureerd coderen asm 
FOBTRAN hebben Jammerlijk gefaald. 
Zekmff sommige fabrikanten zijn uitge- 
komm met FORTRAN?? compilers, maar die 
hebben allemasd een mogelijkheid om ze 
om te toveren tot een FORTRAN66 eoD>» 
piler door het weglaten van slechts 1 
<a#tiji^cluirit. Zo kun Je toch DO-loops 
cad^l«rwi zoals God ze bedoeld had. 

Zelfs Unix is misschien niet zo slecht 
voor de Echte Programmeur als het wel 
geweest is. De laatste versie van Unix 
heeft het potentieel van een operating 
systeem de Echte Progreunmeur waardig: 
twee verschillende user-iaterf aces , die 
op subtiele wijze niet wst elkaar com- 
patibel zijn, een simpele en een inge- 
wikkelde teletype-driver alsmede vir- 
tueel geheugen. Je kunt rustig vergeten 
dat het geheel gestructureerd is, want 
C heeft alle gewenste eigenschappen die 
zo door de Echte Progrsunmeur gewaar- 
deerd worden, zoals het ontbreken van 
type checking, variabelenamen van zeven 
tekens lang, dit alles gecompleteerd 
met het Pointer datatype. Het lijkt wel 
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of je het beste FORTRAN krijgfc, geacai- 
t>ii,e6Fd met assembler. 

Nee, it toitomst is zo slecht nog niet. 
De |!®|iulaire pers heeft al commentaar 
geie^rerd op de nieuwe lichting computer- 
^l^^m die thans Harvard en het M.I.T. 
fipliteii* Het lijkt er sterk op, dat de 
ifBiSSt van de Echte Frogrammeur zal 
ir®drtleven in deze jonge mensen. Zolang 
er slecht gedeflnleerde doelen, bizarre 
bugs m m^i^llSitimhe plannlngen 
blijven, zullen er Echte Programmeurs 
zijn, die in dit gat in de majpkt 
springen en Het Froble^ Qpl&psmi> 4e 
documentatie vo&F later %eiKai*^3d. tame 
leve FORTRAN! 



Oorspronkelijke tit el: 
DON'T USE PASCAL' 



'REAL PROGRAMMERS 



Oor spronkeli Jke 
dhh^eiid . 



auteur(a} en herkomst 



H^fririiRknnnfePQllag .lannf WlilrfaTW#m«. 

Door: Ronald Hermens 

Rembrandt laan 65 
7545 ZH ENSCHEDE 
Telefoon 053-303107 

Hieronder is een schema getekiKid, dat 
een interface tussen de Elektuurbus en 
de IBM-PC I/O-bus voorstelt. De. inter- 
face is gemaaiit cm een harddiskcon- 
troller voor de IBM -PC te koppelen met 
de Elektuurbus. 

Het schema is betrekkelijk eenvoudig. 
Een haxddiskcontroller voor een IBM-PC 
bevindt zich meestal op I/O-adres $320 
en verder. De kaart is verder nog voor- 
zien van de driversoftware in een EPBOM. 
Deze EPROM w©ipdfe h*®r niet gebruikt: de 
controller iKf£&t rechtstreeks vanaf de 
bus aangestuurd en gelezen. Op de IBn- 
connector is te zi^, dat het 1/0-adres 
is voorbedraad; M fii9X4t tf^ziiikt eus 
chip-select. 

De chip-select wordt gegenereerd door 
een tweetal 74HCT688's, die de adres- 
lijnen A2 tot en met Al5 uitdecoderen . 
A0 en Al adresseren registers op de cc»i- 
troller kaart. Naast deze kaart wordt ook 
een 74LS245 databusbuffer uit de chip- 
select gestuurd. Het adres van de cai- 
troller is met jumpers instelbsar; in 
het prot@|fp« is adres g^20-'$£323 ge- 
bruikt. , 

Een 74HCT00 wordt gebruikt om uit phi2 
en R/W de signalen lOR en lOW te maken. 
De laatste poort uit de 7'^fCrr00 inver- 
teert het RESET-signaal . 

Ofschoon de controllerkaaurt in principe 
de mogelijkheid heeft om het datatrans- 
port door middel van DMA te laten 
plaatsvinden, wordt dit hier (nog) niet 
gebruikt. Naar keuze kan de data onder 
interrupt of via polling geschreven rni 

opgehaald worden. De interrupts worden 

opgewekt door de FET BS170. 



»»»»» OPROEP VOOR SOFTWARE ««««« 

De sof t ware-cobrdinators zijn bezig met 
het samenstellen van een catalogus van 
software die we mogelijk via de club gaan 
verspreiden. Als u nog software hebt, die 
ook via de club verspreid mag t'^rieaj dan 
wordt u verzocht deze software op te 
sturen naar de sof t ware-co5rdinator voor 
uw systeem of naar de redactle. 

?a»wege het feit dat de software uit naam 
van de club verspreid wordt, moet de 
software voorzien zijn van voldoende 
commentaar en een handleiding en voldoen 
aan zekere normen van kwaliteit en bruik- 
baarheli* Uiteraard moet de ingeleverde 
soft«ar« elgen werk zijn of vallen in de 
categorle '¥ul}llc Domain". 

Indien de software door de club verspreid 
wmMt m^Bmmt 4it tegen Ji««tp:i,j«» 



Een probleem is thans. dat noch D0S65, 
noch 0HI0-0S65D geschikt zijn f&or een 
harde schijf . De meeste gefaruiiSiS GSm- 
trollers Kunnen 1024 cylindfees m f 
koppen adresseren. Dit levert maaSlmstal 
8192 tracks op. De huidige versie van 
D0S85 is hier niet op berekend. Moge- 
lijk wordt dit veranderd met de vol- 
gende versie van het DOS, t« meeg day? 
er plannen zijn om cnbq iiaiveaESfM: 
harddisk controller te iaan (arittrtk'- 

De gebruikte controller is van het 
merk OMTI, type 5510. Hij is gekoppeld 
met een TEAC NDC5127 Winchester drive 
die 10 Mbyte capaciteit heeft. Deze 
drive is georganisifflixi als, ,30§ pyiin- 
ders met 4 koppen. Wet get^i d^iSiMit m 
een 2 MHz systeem. 



Opmerking van het D0S65 team: het . is 
niet waarschijnlijk dat dit principe 
gevolgd gaat worden om een harddisk aan 
Doses te koppelen. Het probleem is 
namelijk, dat niet iedere IBM-con- 
troller hetzelfde is: de diverse 
regastois kumen op verschiilende 
adressm voorkmen, terwijl. het ook 
voorkomt, dat niet alle bits m de 
diverse register dezelfde fi^^ctie 
hebben. In de IBM-PC zelf wordt dit 
door de op de kaart aanwezige firmware 
opgelost. zodat de gebruiker hier niets 
van merkt. Voor D0S65 zou dit bete- 
kenen, dat voor iedere controller 
mogelijk een nieuwe driver moet vrordai 
gemaakt. Omwille van de toch zeer 
gewenste standaardisatie en goede 
ondersteuning is dit niet erg wen- 
selijk. 
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1001 

1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1013 
1014 
1019 
1020 
1021 
1#22 
1023 

103# 
1031 
1032 
1033 
1040 
1041 
1045 
1050 
1055 
105& 
10S7 
1058 
1060 
1065 
1070 
i'080 
i£^S 
1090 
1 100 
1110 
1120 
1X30 

iisi 

1132 
1 1 33 
1134 
1135 

lt40 

1141 
1150 

ijsi 
iim 

1161 
1170 
1180 
1181 
1182 
11^ 
1184. 

ilis 

1186 
1187 
1190 
1200 
1205 
lllfif' 

iSii 

1212 
1220 
1221 
1222 
1223 
1225 
1230 
1231 
1235 
1236 
1237 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



* * 

* AMAZING MAZE V.2 * 

* Mazegen^snpatof 3, Am tCni j++ * 

* BASIC 1 book HCC * 

* * 
^ Maze selt/ingi added and * 

* converted to D0S65 BASie * 

* by Antoine Megens 19%7 * 



REM CLS string 



CL*=CHR*(12) 
GOSUS 4000 

REM width and height maze 
B=25:REM actual width will b« 1*3 
H=10:REM actual heigth will b# H*2 
REM integer arrays to save memory 
DIM D%<B,H) ,M%(B#2+2,H*2+2) , V%(2*B+2, 2*H+2) 
REfl these constants determine shape of maze 
Ci«l 

C3*. 7 
C4=.5 
E=B*H 

IwINTt (RND(l)*.S)*B/2) 

5ic*I:Y=0 

D%<X,Y)«1 

T«l 

,1^1-1 

eOTQ 1080 

x«x+i 

IF X>B THEN X»0:Y=Y+1:IF Y>H THEN Y*0!X-0 
IF D%(X,Y)*0 THEN 1060 

m<X*l»Y)»0 THEN P=l 
IM!^<X-l,TJ*«il THEN P=P+2 
B%(X,Y+iJt«# THEN P«P+4 
D%(X,Y-1)=0 THEN A=l 



mm 

Y<H 

Y>0 
P>0 



THEN 
THEN 
THEN 
THEN 



IF 
IF 
IP 
IF 



A=A+l:lF P>2 THEN A-A+l 



IF 
IF 
IF 
IF 

IF mP90 THEN 1060 
Q-»P*INrT «RNI>< 1>#A+1 ) 
W ®»13. TMltl 1134 

m ® ■mtQ 1170,5,5, 1140, 1170,5, 1150, 1170, 5,11^, itSi»117», 1160 
IF a«24 T1«N 1150 

ON Q-13 1130, 1170, 1140, 1160, 1170, llAB, llSafiiii?«*1140, 1160 

STOP 

RMDIlXeZ THEN 1130 
X»X + 1 : D% ( X, YI «2 S GOTO 1 180 
IF RND<1)<1-C2 tttlN 1130 

I>X«K,YJs»B%<X,Y) +2:X=X-1:D%<X,Y)=1:G0T0 1180 
IF HNStl)<C3 THEN 1130 

B« I X , Y I iX , Y ) +4: Y» Y * 1 : D% ( X , Y ) = 1 : GOTO 1 1 80 
Y«Y-i:B%(M,Y)»4SlF RNDtl)>C4 THEN C2=«l-C2 
T=T+i: PRINT ".•j:iF T>=E THEN 1190 
IF RND<1)>C1 THEN 1080 
Xi=lNTtRNDtl3i*B) 

WTO 1070 

REM Maze generator -finished, print maze 
PRINT CL« 

D% ( B- 1 , m *Safctl* 1 , H J +4 
PmiNT • "I 

Mft' X«0- to B 

IF X=I THEN SOSUB 1280: GOTO 1220 
GOSUB 1290 
NEXT X 
PRINT 

FQR Y*0 TO H 
PRINT " "5 
FOR X=0 TO B 

IF <D%(X,Y) AND 2) THEN SOSUB 1300: GOTO 1235 
GOSUB 1310 
NEXT X 

PRINT "'.•:PR1NT " *J 
FOR X»0 TO B 



29 



DOSes-Gorner 



1240 
1241 
1245 

1246 

124;7 

1248 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1 ?'?9 
2000 
2001 
2009 
2010 
201 1 
2012 
2013 
2014 
2015 
2016 
2017 
2020 
2060 
2070 
2030 
2090 
2091 
2100 
2120 
2130 
2135 
2140 
2150 
2160 
2200 
2230 
2240 
2250 
2300 
2320 
2325 
2330 
2350 
2490 
2500 
2510 
2520 
2530 
2540 
2565 
2570 
2575 
2576 
2580 
2590 
2600 
2606 
2610 
2620 
2630 
3000 
3005 
3010 
3020 
3030 
3050 
4000 
4010 
4020 
4030 
a.0a0 

4060 
4080 
4096 



IF (D%(X,Y) AND 4) THEN SDSUB 1320: ©OTO 1245 

eOSUB 1330 
NEXT X 
PRINT "+" 

l!% ( 2^fB + 2, 2*Y) =1 : M% (2»B+2, 2*Y + 1 ) «1 : M% (2*1+2, 2*¥*2i =1 

NEXT Y 



GOTO 2000 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



' + -- 



' + 



; : M% ( 2*x , 0 ) = 1 s M% ( 2*x+ 1,0) -0 : Rgtysw 

; : M% ( 2*X , 0) =1 SM%1 2*X + 1 , 0) =i : RmJ8M 

5 : M% <2*X, 2*Y+ 1 >«0: M%(2*X+ 1 , 2*Y + 1 J RETURN 

; : M% ( 2#x, 2»Y+ 1 ) =1 : M*ii»x+ 1 , 2*y+ l i mg: return 

5 : M% ( 2*X , 2*Y + 2 ) = 1 : M% < 2*X + 1 , 2* Y + 2 J »0 1 RETURN 
; : M% ( 2*X , 2*Y + 2 ) = 1 : M% ( 2*X + 1 , 2*Y +2 > »1 1 RITUrN 



f 

n • 



REM Start 

REM 



So 1 V i ng 



KX (0) =0: KY (0) =1 
KX ( 1) = 1 : KY ( 1) =0 
KX !2) =-1 : KY (2) =0 
KX (3) =0:KY (3) =-1 
KX (4) =1 : KY <4) =1 
KX (5) =1 : KY (5) =-1 
KX(6)=-1:KY<6)=1 
KX (7)=-i:KY(7)=-l 
Y=0 

FOR X=0 TO 2^tB:iF W«tX,Y)=0 THgW 2080 

NEXT x: PRINT "Error, could not flntf start of maze": STOP 
CURSOR TO Y+2,INT(1.S*X)+2:PRINT " I 3 » 8 

V% ( X , Y > = 1 

REM Search +or best possible direction 
tel=0:mi=10: 11=0: i2=3:FLAe=0:sosuB 2500 

IF FLAG THEN 3000 

IF TEL04 THEN GOSUB 2300:6OTO 2100 
REM Try alternative courses 

TEL=0: Mi=i0: I 1=4: 12=7: flag=0: gosus 2500 

IF FLAG THEN 3000 

IF TEL04 THEN GOSUB 2300:GOTO 2100 

REM Nothing +ound, increase current position and try again 

V% ( X , Y ) =V% (X,Y)+1 .'^ 
GOTO 2100 

REM Goto +ound direction 
X=XO: Y=YO: X=X+KX (K) : Y=Y+KY (K) 
CURSOR TO YO+2, INT(1.5*X0)+2:PRINT " »; 
CURSOR TO Y+2, INT(1.S*X)+2:PRINT 
V%(X,Y)=V%(X,Y) +1 
RETURN 



'tt*t 



FOR 1=11 TO 12 

xo=x:yo=y 

x=x+kx ( i ) : y=y+ky ( i ) 

if (x<0) or (x>2*b+1) or (y<0> then 2600 

if m% ( x , y ) 00 them 2600 

IF (Y>2*H+1) THEN FLAG=1 : RETURN 
IF V%(X, Y) >=V%(XO,YO) THEN 2600 
IF V%<X,Y)>=M1 THEN 2600 
MI=V%(X,Y) 

K=I 

GOTO 2606 
TEL=rEL+l 
X=XO: Y=YO 
NEXT I 
RETURN 

1° YO+2, INT(1.5*X6}*2SPR1»IT • ' f 

^H5iS2 1° Y+2, int(i.s*x)+2:print 'ti'i 

rl:,^f,2.^^l2 ' ^ = PRIMT-FOUND ! ! ! •i CMR*t1?) I 

IF A$="Y" OR A$="y» THIN MM 
PRINT CL$; "THAT'S ALL FOLKS!*:END 

PRINT CLs: PRINT: primt:print 

PRINT TAB (30) "AMAZING MAZE" 

PRINT TAB (29) — 

print: PRINT 

po^kIIIIu'^ pregra* win generate a maze and plot it on the screen." 
potmI-Z^I® second part ot this program then solves the maze." 
RETURN maze-generator is not very +ast, so please have some patience." 
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KERMIT een file transfer protocol voor computers 



Samenvatting van de lezing gehouden op 1$-»01-1988 te Kronimeiiie 
door Klein. 



1 INLEIDING 



Naarmate het gebruik van computers steeds toeneemt wordt de 
behoefte aan het uitwisselen van files ook steeds groter. He- 
laas is dat niet zo eenvoudig. In de jaren zestig en het begin 
W&n de jaren zeventig waren er alleen maar peperdure mini- 
en mainframe computers. De opslagmedia waarmee deze syste- 
men werkten (diskdrives en magneetbanden) waren rela- 
tief vrij goed gestandaardiseerd , waardoor f i 1 e-u i t w i ss el i ng 
vrij eenvoudig was. Dat veranderde grondig aan het eind van 
de jaren zeventig/ toen de microcomputer zijn opmars begon. Het 
Standaard opslagmedium van deze systemen was (en is voor een 
groot deel nog steeds) de floppy disk, Het aantal formaten 
waarmee floppy disks worden beaclireven is §ehteif bijna net zo 
groot als het aantal merken en typen computers. File-uitwis- 
seling tussen microcomputers is derhalve een regelrechte ramp. 
Nog erger is de situatie bij het uitwisselen vmn files 
tussen een microcomputer en een mainframe. De floppy disk is in 
deze wereld geen standaard medium* en magnetische tapes zijn 
een onbekend verschijnsel in de microcomputerwerela. Vooral 
de laatste jaren nu microcomputers steeds meer als werkstation 
worden ingezet is dit een knellende situatie. Om toch files te 
kunnen uitwisselen moet een comnrunicati e medium worden gekozen 
dat zo veel mogelijk systemen gemeen hebben. Per saldo 
blijkt daar slechts een medium voor in aanmerking te komen: de 
oude trouwe RS232 interfaee* 



1.1 De RS232 Interface Als Communicatie Heflium 



De RS232 interface mag dan een redelijk goede staitiaard zijn, 
helaas is hij ©ok inherent onbetrouwbaar. Bij het gebruik 
doen zich in principe drie soorten problemen voor: 

Noise. Vooral wanneer de RS232 interface via een modem 
aan het openbare telefoonnet hangt, is de kans op ruis 
vrij groot. Het resultaat hiervan is gewoonlijk dat data 
verminkt raakt. 

Wegvallen van de verbinding. Een verbinding kan kortefe 
of langere tijd wegvallen, bijvoorbeeld door het los- 
raken van connectors, door een storing in een tele- 
fooncentrale e.d. Het typische gevolg hiefvan is dat 
data verloren gaat* 
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Synchronisat i e fouten. De zendende computer mag data 
niet sneller aanbieden dan ©ntvangende eoroputi&r kan 
trerwerken. Bijna alle operating systems negeren data die 
te snel binnenkomt via een RS232 interface. Ook in dit 
geval zal er dus data verloren gaan. 

Om deze problemen op te kunnen vangen is het noodzakel i jk #» 
saraen met de data controle informatie mee te sturen aan de 
hand waarvan de ontvangende computer kan zien of hij alle 
data correct heeftt ©nt\ran^#n. Dit verelst dat we <3ul€eli5k 
afspreken. wat data is en wat controle informatie is, en hoe de 
e^ntrole informatie is opgebouwd. Een dergelijke afspraak 
wordt een protocol genoemd. 

Rerntit is een protocol voor het uitwisselen van files tussen 
computers van een willekeurig merk en type via ©en a- 
synchrone seriele RS232 interface. Het Kermit protocol is in het 
begin van de jaren zeventig door Bill Catchings en Frank da 
Cruz van de Columbia University van N<lw York ontwikkelii. De 
nadruk bij het ontwikkelen van het protocol lag op de be- 
trotawbaarheid en het toepasbaar zijn op zo veel mogelijk compu- 
ters. Het protocol is public domain «n dat®#lfde geldt voor alle 
beschikbare documentatie en voor een groot aantal programma's 
die het protocol implementeren. Kermit is met toestemming van 
de bedenkers ervan genoemd naar de gelijknamige kikker uit de 
'Muppet show'. 



2 HET KERMIT PROTOCOL 



Om met Kermit te kunnen werken moet een computer aan drie 
eisen voldoen: 

De computer moet over een RS232 interface beschikken 
waarmee zeven bits ASCII characters kunnen worden gezon- 
den en ontvangen. 

- De computer moet alle printbare ASCII characters onge- 
hinderd doorlaten. 

De computer moet in staat zijn om tenminste een ASCII 
contS'ol character door te laten, bij voorkeur het SDH 
character ($01). 



Het is handig, maaf niet noodzakelijk dat de computer ook acht 
bits characters kan zenden of ontvangen. Het is niet belang- 
rijk of een computer full- of halfduplex werkt, of er met een 
XGN/XOFF protocol wordt gewerkt, of er pariteits controle v/ordt 
gedaan en welke baudrate er wordt gehanteerd. 
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14-faa file 'tafansfer protocols (Kermit is niet het enige 

protocol) werken met dezelfde strategie: de te verzenden file 
wordt in stukjes gehakt. Aan teze zogeheten packets wordt 
controle taf^rmatie toegevoegd. De ontvangende computer 
kan hieraan zien of hij een packet goed heeft ontvangen. Is 
dat niet het geval, dan hQ6f« all##« k&t betreffende packet 
dpiaieuw ©vergestuurd te worden/ in plaats van de hel'e file. 



2,1 De Opbouw Van Een Kermit Packet 



Alle Kermit packets hebben het volgende formaat: 



j MARK I LEN | SEQ j TYPE | DATA | CHECK | 
4. — — ^+-.«^^^+ .+ - -+ — + 

Alle velden bevatten uitsluitend printbare (!) ASCII characters, 
met uitzondering van het MARK veld# dat eett control character 
bevat. De betekenis van de verachillende velden is als volgt: 



Het MARK veld bevat het start-of -packet character. Ge- 
woonlijk is dit het SOH (ASCII $01) character. 

Bet LEN veld bevat de lengte van het packet minus MARK 
en LEN veld. Dit getal wordt omgezet naar een printbaar 
ASCII character door er $20 bij op te tellen. Dit be- 
perkt de lengte van een packet tot decimaal 94 oftewel 
$5E, het hoogste nog printbare ASCII character is immers 
de tilde ('"' of $7E). 

Het SEQuence veld bevat het packet volgnummer. Packets 
worden opeenvolgend genufflmerd van 0 tot en «efe 63. 
Daairna volgt er een 'wrap around' en wordt weer met 
volgnummer 0 begonnen. Ook dit getal wordt omgezet naar 
een printbaar ASCII ehaifaeter door er $20 bij op te 
%i 1 6 n • 

Het TYPE ir«ld bev^at een ASCII character aan de hand 
waarvan wordt bepaald om wat voor een soort packet het 
gaat. De volgende types bestaan: 

D Data packet 

Y Acknowledge packet 

N Negative acknowledge packet 

S Send initiate packet 

B Break transmission packet 

F File header packet 

Z End ©€ file pacKet 

E Error packet 

Het DATA veld bevat de feitelijke informatie van het 
packet. Het DATA veld bevat uitsluitend printbare ASCII 
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Zoals al eerder gezegd mag het DATA veld alleen 
ASCII characters bevatten. Dat werpt twee vragen op: 

- Hoe veesturew m kmiz ^ootroJ. chara!#*«r«l! 



versturen we biflaije# iat«, dat wil zeggen iatt 
waarvan het achtste bit relevant is? (ASCII is iffiroers 
een zeven-bits code) 

Beide problemen worden opgelost door het gebruik van 
'prefix' characters. Bij control characters is dit prefix cha- 
racter gewoonlijk het character '#' ($23). Het control character 
wordt direkt na de prefix gezonden als printbaar ASCII cha- 
racter. In dit geval is het echter niet voldoende om $20 bij het 
control character op te tellen. Dit levert immers problemen op 
bij het rub-out character (ASCII $7F), dat ook een control cha- 
racter is! Dit wordt opgelost door het control character te 
eXclusive-ORren laet $40- ftovendiea Um: mm ^ezelfde functie 
ook gedecodeerd worden, Het volgende rodrbeeld maakt een en 
ander duidelijk. 

0000 0001 = $01 = ~A 0111 1111 = $7F = rub-OUt 

0100 0000 = $40 0100 0000 = $40 

XOR XQR 

0100 OQOl = $41 = 'A' Qm.1 1111 * $3F « '7' 

Het control-A character komt dus als '#A' in het DATA veld te 
staan, de rub-out als '#?'. Willen we het prefix character 
zelf verzenden dan prefixen we het met zich zelf: '##'. 

Een soortgelijke oplossing gebruiken we voor acht-bits data, 
althans wanneer de RS232 van een van de computers niet in staat 
is acht-bits characters te verwerken. Kunnen beide compu- 
ters dit wel dan garandeert het Kermit protocol dat het 
achtste bit van elk character ongewijzigd wordt overges tuurd. 
Het 'eight-bit-prefix' character im g^ewoonlijfc de ampersand 
'&'. Is van een te verzenden byte het hoogste bit een 1, dan 
wordt het geprefixed. Vervolgens wordt het hoogste bit op nul 
gezet en gekek»n of het resultaat een printbaar ASCII character 
is. Is het een control character dan wordt ook nog 
control-character prefixing gebruikt. Ook hier geldt dat wan- 
neer we een ampersand willen versturen dat we het met 
zichzelf prefixen. Bekijkt u de volgende voorbe«lden raaar eens: 

$C1 = '&A' 

$81 = '&#A' 

$FF = '&#?' 

$26 = '&&' 

$A6 = '&&&' 

$23 = '##' 

$A3 = '&##' 

Er is tenslotte nog een probleem: het end-of-line character in 
textfiles. Verschillende computers gebruiken verschillende me- 

thodes om in een textf ile aan te gevea ^«t er op een volgende 
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characters. Voor control characters en binaire data 
wordt volgens een bepaald scheffia gecodeefd. 

Het CHECK veld bevat de checksum van alle bytes in het 
packet met uitzondering Am MMS^ en Mm- ©heckstim asalf. 
Ook dit is weer een printbaae Mfill character. 



Elk packet wordt afgesloten met een end-of-line character, ge- 
woonlijk een carriage return. Dit vindt zijn oorzaak in het 
feit dat file uitwisseling tussen een microcomputer en een raain- 
fcaiB* fewoonlijk via een terminal lijn verloopt. Sommige 
operating systems zijn alleen maar in staat om data die via een 
terminal binnenkomt t6 vetwerken nadat een end-of-line cha- 
racter is ontvangen. Een Kermit packet presenteert zich 
derhalve als een regel getypte tekst aan het operating 
system. Het Kermit protocol geeft optioneel de mogelijkheid om 
na een packet een aantal 'padding' oftewel pauze characters in 
te lassen. Gewoonlijk is dit het NULL character (ASCII $00). 



2.2 De Checksum Methoi^e 



Het Kermit protocol kent drie verschillende methodes om een 
checksum te genereren. Daarvan is alleen de methode die hier 
wordt beschreven (een byte checksum) verplicht. De twee aftdere 
raethoden, de twee bytes checksum en de drie bytes 16 bits 
CRC methode, staan uitgebreid beschreven in de Kermit Protocol 
Guide. De een byte methode werkt als volgt: Alle characters in 
het packet, met uitzondering van de MARK en de checksum zelf, 
worden bij elkaar opgeteld. Vervolgens wordt het resultaat 
zes roaai ■ naar rechts geshift en er bij opgeteld. 
er met $3F geAND. Dit heeft 



checksuin is. Deze wordt 
charact ©rdoor er $20 bij op 
ander duidelijk te maken: 



Daarna wordt 

tot gevolg dat er een zes bits 
omgezet naar een printbaar ASCII 
te tellen. Een voorbeeld 



om een en 



mm mm 



$AA 



Son van het pa^^t 



000© 


0010 




$02 


Zes maftl mar rechts 


1010 


1100 


+ 


$AC 


Hieuwe som 


omi 


1111 




$3F 


AND-en met $3F 






AND 






0010 


1100 




$2C 


Zes bits resultaat 


0010 


0000 


+ 


$20 


$20 er bij optellen 



0100 1100 



= $40 = 'L' 



Checksuffl 



2.3 De Opbouw Van Het DATA Veld 
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regel verder moet worden gegaan. In DOS65 wordt de caCCiSge 
return gebruikt, onder CP/M wordt zowel een carriage return als 
een linefeed gebrtiikt/ onder UNIX wordt alleen een linefeed 
gebruikt en sommige record georienteerde operating systems 
(bi jvoorbeeld VAX/VMS) gebruiken helemaal geen end-of-liiJ© 
character, maar slaan de lesttgte vari de regel in de file op. Om 
hiermee problemen te voorkomen bepaalt het Kermit protocol dat 
het end-of-line character in een packet altijd een carriage 
return en een linefeed is. De ontvangende computer dient er voor 
te zorgen dat dit vertaald wordt naar de end-of-line conven- 
tie die zijn operating system gebruikt. 



3 aHf ZEND PROTOCOL 



Zoals geaefd werkt Kermit door het versturen van packets 

met informatie. Elk packet dat door de zendende computer wordt 
gezonden moet door de ontvangende computer bevestigd wor- 
den door een acknowledge packet terug te sturen. Ontdekt 
de ontvangende computer een fout in het packet dan wordt een 
negative-acknowledge packet teruggestuurd. De zendende compu- 
ter stuurt hetzelfde packet dan nog eens over. Dit gebeurt tot 
een vooraf ingesteld maximaal aantal. Wordt dit maximale 
aantal overschreden dan stuurt de zendende Kermit een Error 
packet en stopt de file transfer. Is de verbinding zo slecht 
dat er helemaal geen data meer wordt ontvangen, dan treedt een 
tiffleout mechanisme in werking. Wanneer de zendende computer niet 
binwen een bepaalde tljd een (negative) acknowledge packet 
ontvangt, wordt hetzelfde packet nog eens verstuurd, totdat de 
het maximale aantal retries wordt overschreden. Krijgt de 
ontvaiBfende computer niet binnen een bepaalde tijd een packet 
binnen/ dan wordt er een negative acknowledge packet terug 
gestuurd, eveneens tot het maximale aantal retries is over- 
schreden. Hiermee worden 'deadlock' situaties voorkomen. 

De preciese volgorde waarin de twee computers packets uitwisse- 
len is als volgt: 



De zendende computer stuurt een Send-initiate packet. In 

het DATA veld van dit packet vermeld de zender een 
aantal parameters die de ontvangende computer moet ge- 
bruiken. 

De ontvangende computer stuurt een Acknowledge packet 
met in het DATA veld van dit packet gi jn eigea para- 
meters. 

De zendende computer stuurt een File-header packet* In 
het DATA veld van dit packet staat de naam van de te 
verzenden file in het forraaat 'naam. type'. De ontvangen- 
de computer moet deze filenaam omzetten naar een forraaat 
dat voor zijn operating system aanvaardlb#ar is. 
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- De Qntvangencle computer stuurt een Acknowledge packet. 

- De «fp#ende coiftputer stuurt nu de file ovee in de vorm 
vaii data packets. 

- Ilk packet wordt door de ontvangende computer ge-acknow- 
1 edged. 

- Wanneer de file overgestuurd is, wordt een End-of-file 
packet gestuurd. 

De ontvangende computer stuurt een acknowledge packet. 

- Zijn er nog meer file te versturen, dan volgt er opnieuw 
een File-header packet. 

- Is dat niet het geval, dan stuurt de zendeftdt COMputer 
een Break-transmission packet. 

- De ontvangende computer stuurt teitslotte ftof tea acknow- 
ledge packet. 

Het is mogelijk dat een van de twee computers tijdens de 
het oversturen van de file een ernstige fout ontdekt. Het 
Operating system van de ontvangende computer kan bijvoorbeeld 
^apperteren dat de disk vol is, of de zendende computer ^kan 
konstateren dat een file onleesbaar is als gevolg van een bad 
sector'. Dergelijke fouten hebben tot gevolg dat een 
Error packet wordt verstuurd door de computer die de fout 
konstateert. Een Error packet heeft tot gevolg dat de file- 
transfer wordt gestaakt. In het DATA veld van het Error packet 
staat een foutraelding in ASCII. 



3.1 Het Send-Initiate Packet 

Nu we het zend protocol hebben behandeld kunnew we tenslotte 
nog het Send-initiate packet behandelen. Zoals m de vo- 
riqe paragraaf al gezegd is, wisselen de beide Kermits hun para- 
meters via dit packet uit. De opbouw vaft li#t mm ^eia Wli 
het packet is als volgt: 

TMAXI»irlMli»Ml tme| S^^ I QCTL | QBIN | CHKT | REPT ] CAPAS 
— + + + + + + 

- MAXL de maximum lengte van een packet dat ik kan ont- 
^ vangen. 

- TIME het aantal seconden waarna jij me uit moet timen. 
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NPAD het aantal padding characters waarftiee jij elk 
packet vooraf moet gaan. 

PADC het aantal padding characters dat jij aieet gebrui- 
ken. 

EOL het end-of-line character dat jij na elk packet moet 
sturen. 

QCTL het prefix character dat ik zal gebruiken voor 
control characters. 

QBIN het prefix character dat ik zal gebruiken voor 
eigh-bit prefixing. 

CHKT de checksum methode die ik zal gebruiken. 1 is de 
een byte methode, 2 is de twee byte methode, 3 is de CRC 
methode. 

KEPT het repeat character dat ik zal gebruiken (optio- 
nee! ) . 

CAPAS een bit mask in verband met mogelijke uitbrei- 
dingen t(p het Kermit protocol dat aangeeft of deze 
Kermit een of meerdere van die uitbreidingen aatiitiiSR. 



4 KERMIT IMPLEMENTATIES 



Het Kermit protocol inmiddels op zo'n 150 verschillende com- 
puters geimplementeerd. Het Kermit protocol doet geen uit- 
spraken over de wijze waarop het protocol in een computerpro- 
gramma verwerkt moet worden. Kermit programma's kunnen onder- 
ling dan ook zeer verschillen in de manier van aanpak. De meeste 
Kermit's die op microcomputers en PC's draaieis jsien er ecjllter 
redelijk uniform uit. Allemaal hebben ze een commando interpre- 
ter via welke de gebruiker de computer opdrachten geeft. Alle- 
maal bevatten ze een terminal emulator. Het is in de KermdlE 
wereld gebruik geworden om deze terminal emulator minimaal een 
VT52 terminal te laten emuleren. Er zijn echter ook Kermits die 
veel geavaw-ceerder terminals kunnen nabootsen. Zoals gezegd is 
Kermit een public domain protocol. Datzelfde geldt ook voor 
Kermit prbgtamma's. Alle sources zijn vrij verkrijgbaar en mogen 
voor persoonlijk gebruik word#ft gecopieerd. Inmiddels is 
Kermit ook voor DOS65 beschikbaar. Nadere informatie treft u 
elders in dit blad aan. Het is ook interessant te weten 
dat veel bulletinboards Ketftiit ondersteunen. Dat geldt in ieder 
geval voor de FIDO-nodes, en mogelijk ook voor het bulletin- 
board dat de club gaat beginnen. 
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5 TOT BESLUIT 

Het bovenstaande artikel geeft zeker geen volledige beschrijving 
van het Kermit protocol. Alleen die principes die besll'St: 
noodzakelijk zijn om een Kermit programina te realiseren zijn er 
in besproken. Wie zich grondig wil verdiepen in het Kermit 
protocol wordt aangeraden om de 'Kermit protocol guide' te bestu- 
deren. &# pt&t&col guide is bij de auteur van dit artikel te 
krijgen op een dubbelzi jdige 40 tracks floppy in DOS65 formaat. 
De 'Kermit user guide' is een zeer lijvig document waarvan de 
ll#l,tftf ri jkste hoofdstukken op papier verkri jgbaar zijn ten be- 
hoeve van DOS65 Kermit. 



Gert Klein 
08370-23646 



m vLAiis im m, eg-65 ^ cum. 

tioewel sommige boze tongen beweren dat we 
de club beter om kunnen dopen naar DOS-65 
SgiruiketsclMb srljn het bestuur en de 
redactie het niet met deze stalling eens. 
Wij zijn van mening dat we binnen de club 
momenteel twee zwaartepunten hebben. In de 
eerste plaats zijn dat de door Elektuur 
pntwikkelde systemen met in de meeste 
levalifiji OHIO-DOS en in de tweede |)la«its 
a© feiiineti de tint ontwiklcelde 003*65. 

Verder is er natuurlijk ook ruimte voor 
Apples, Atari's, Acorns etc. etc. maar het 
zwaartepunt ligt momenteel bij de twee 
voomoemde Systemen* 

Nu wil het geval dat een deel van de 
actieve leden op het gebied van de EC-65 
helaas geen lid meer van de club zijn. 
Betekent ift Mmt EC-65 en alles wat daar 
omheen hangt nu niet meer door de club 
ondersteunt wordt? Gaat dfr Kllt-club 
hetzelfde doen als het tijdschrift dat het 
merendeel van de gebruikte schakelingen 
gepubliceerd heeft? Natuur lijk niet! Wij 
dragea alle systemen rond een 6502- 
ptoeessor of iets wat daafr 0p lljkc ©feffl 
warm hart toe en heb u per ongeluk iets 
heel anders in huis, dan bent u ook van 
harte welkom. Een voorbeeld van de 
tolerantie binnen de club is de redacteur 
himself* Ik lieb al sinds twee jaar geen 
6502 systeem meer. Xochi is er binnen het 
bestuur ruimte voor alj m bovendien werd 
ik in de gelegenheid gesteld redacteur van 
ons clubblad te worden. 



Wat is er Intussen op EC-65 gebied 
gebeurd? Ten eerste is de kopij-buffer 
helaas leeg geraakt. Dit betekent dat er 
dus heel snel kopij voor EC-65 beschikbaar 
moet komen. Tenslotte is de 6502-Kenner 
het beldiigrijkste communicatie-medium 
M&neii de club en de redactie wil EG-65 
e^O. evenredige hoeveelheid ruimte geven in 
het blad. In de tweede plaats hebben zich 
twee leden gemeld die be 1 ang s t e 1 1 ing 
hebben voor het beheer en de verdere 
ontwlkkelittg ^an de beschlkbare soft«rare. 

Deze leden zijn: 

Ton Smits 

De Meren 39 

4731 WB Oudenbosch 

en 

Bert van Tiel 

Jan van Beaumont straat 21 

2805 BK Gouda 

Bij deze twee personen kunt u terecht irmit 
het inzenden van uw EC-65(K) software, uw 
opmerkingen en vragen. Voor de goede orde, 
voor alle systemen die OHIO-DOS draaien, 
zijn zij de aanspreekpersonen* Dit zijn 
Junior met OEIO-IOI, Samson-65, Octopus, 
ie-65 en EC-65K. 

De personen hebben te kennen gegeven dat 
zij het liefste schriftelijk benaderd 
worden zodat ze op een ewatuele vraag 
niet stante pede een antwoord hoeven te 
verzinnen. Zij zullen schriftelijk of 
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telefonisch contact met de vragensteller 
opnemen. Mocht het echt noodzakeli jk zijn, 
een van de genoemde personen telefonisch 
te spreken, dan kunt u via de redsctle het 
telefoonaumiaer kyligea* 

Op het gebied van hard- en software is het 

volgende te melden: 

De hardware voor de eproarprof jrammer is 
zover ontwikkeM ist er op zeer kOTte 
fcerpiim e#n print beschikbaar komt. Deze 
print kan dan, via de club aangeschaft 
worden. Het schema en de verdere documen- 
tatie zal in het volgende nummer van de 
6502 Kenner afgedrukt worden, 

ferdet' wordt er hard gewerkt aan de aan- 
fasiing van EP (de software voor de eprom- 
programmer) voor OHIO-DOS. Ton Smits is 
hier, samen met Nico de Vries, mee bezlfi, 
Hij heeft echter erg veel belang bij m&v 
documentatie van ket BOS. Hij is in het 
bezit van het bekende blauwe boek ( ??? ) 
maar zou graag nog wat meer informatie 
hebben zodat hij gebruik kan maken van 
delen/entry-points van het DOS. Wie kan 
himmm Ius3«pen? 

dofe helj ifc vam Ton begrepen dat het eigen- 
lijk noodzakelijk is dat we binnen de club 
tot een standaarisatie van de DOS komen. 
Dit gaat waarschi j nli j k betekenen dat er 
door de genoemde personen een update op de 
0Qirsf«e«&e|ijke Wt gemaakt wordt die 
ttpm kostpri|« verspreid zal gaan worden, 
lit is dan de 6#S waaronder de te ver- 
'.i||i£@f item soft'iKxce zmI >wpe^eiBCi. 

Wij hopen dat het initiatief van Ton en 
Bert voor u aanleiding zijn software en 
kopij in te sturen zodat ook EC-65(K) een 
gelijkwaardig deel van het blad toebedeeld 
kan krijgen. U laat zich toch niet door de 
gladde DOS-65 jongens uit 4e 6S02«Kem©r 
verjagen? 

P.S. Bezit n een EC-65<K), laat het ons 
dan eens wetea* 

Gert van Opbroek. 



TIP: IBM-COMPATIBLE PRIMTEK. 

Albert v.d. BevUi;^! 

V, SllngsIiaM^st^raat If 

g61i fT telft 

Hier is misschien een leuke tip voor de 
bezitters van eei^ Octopus 65. Ik zelf ben 
sinds kort in het Besfft van een Peafiocll 
IBM compatible printer. Nu was het pro- 
bleem met dat ding dat hij altijd een line 
feed gaf. En hij reageerde niet op de 
daarvoor bestemde dip switch. De oplossing 
daarvoor is het volgende: 

De meeste IBM-compatible printers ©en 
paralel interface hebben op pin no. 14 van 
de connector AUTO FEED XT lijn zitten. Als 
deze lijn logisch 0 is, dan geeft de 
printer altijd een line feed, Ongeacht de 
stand van dip switch, 

Nu Is bij de Octopus pin 14 met massa 
verbonden dus is hij 0. Om dat signaal 
toch logisch 1 te maken hoeft men alleen 
maar een weerstand van 100 Ohm te monteren 
tussen pin 14 en pin 18 (+ 5V) van de 
connector. Dat kan zeer gemakkelijk in d# 
stekker die in de printer gaat. En dan 
werkt het geheel zonder probleaen. 



DipswiTcaes EPtm jemdlaiqr 

Er zit een fout in de opgave van de 
dipswitch-standen van de "eprom 'emulator" 
uit Elektuur September 1987 no, a7136. 



Eprom Emulator, dipswitches: 

12 3 EPROM: 4 5 FORMAT: 

0 0 0 2708 

1 0 0 2716 

0 1 0 2732 

1 1 0 2764 
0 0 1 27128 
10 1 Z7U6 i^6e% 8: dm't ■omm 

Ronald Hermens, 



0 0 INTEL 

0 1 binary 

1 0 Motorola 

1 1 Tektronix 



6 7 BAUDR. 

0 0 1200 

1 0 2400 

0 1 4800 

1 1 9600 
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WIJZIGINGEN ELEKTDDR HAKDWARE. 



iotiaid Hermeftis 

Rembrandt laan 65 
7545 ZH Enschede 

PSIO-RTC card, 

gepubliceerd in llektuur Computing no 4. 

doel: 

De kaart te veranderen om op DOS65 
computer te gebruiken, door de benodigde 
adresrui>Bite: te ir»t&l#i»en tot 16 bytes, 
die gems.&tYmmw4 maxim yoor de RTC-kaart. 

In deze 16 bytes komen 2 PIA's, 1 ACIA en 
de RTC. Dit alles met de orginele IC's op 
de originele plaatsen. De spagetti- 
structuur heeft plaats gemaakt voor een 
veel begrilf^lijfct* Sefeema, dat ook nog 
veel kleinere vertragingstijden kent. Een 
groot nadeel is dat zo ongeveer elk print- 
spoortje van en naar deze ICs onderbroken 
moet worden en er evenzoveel draadbruggen 
op de print zullen komen. Dit is dus niet 
voor beginnende soldeerartiesten ! De kans 
op fouten is enorm, de enige manier om 
deze print te maken is door elk draadje 
wat je erin soldeert tweemaal te controle- 



ten em te tekenen in het schema. Het 
opspoten van f cute verbindingen is bijna 
hope loos . 

Het schema is zo ontworpen dat er zo wei- 
nig mogelijk draadbruggen gelegd hoeven te 
worden. Ook de onderbrekingen op de print 
zijn alien aan de soldeerzij de. Ik geef 
geen lljst mm. M te l#ggen wrbindiagen, 
het is eerder verwarrend, je moet dit zelf 
uit het schema halen. Ik geef wel een 
lijst van de te maken onderbrekingen, op 
de meest handige plaatsen. 



'245 


IC 1 


pl9 bij deze pen 


'02 


IC 2 


p2,p3,p5 & p6 allettr^e de sporen 


'688 


IC 3 


pl9 bij deze pen 


'00 


IC 4 


p9,pll 


'27 


IC 5 


pi ,p2 beide, p3,p8,p9 beide, 
pll beide, pl2, pl3 beide 
p2,p3 beide, f«,ff ,f i0,|tli - pl2 
pl3,pI4 






'00 


IC 6 




IC 7 


pl4 




IC 8 


P2 




ICll 


p21 




IC12 


p21,p22 



busconnector: 

13c onderbreken en aan nul leggen (was 
bank select 0) . 





us. 












_ca zcii tmm 



_cs xeis na 







RTC 

PXAA 

PIOB 


paSBWBHl 1 

E124. .C12-7 

Elza. . ciaB 
cute.. cur 



Till* 

P8IO RTC 



9Ia 
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handige verbindingen: 

IC 8 p2 aaa het print spoor direct 

achter pi van dit IC. 

10 11 »m IC 12: 

'fit * 123 
p23 - p22 

p24 - p24 

Draadbruggen adresselectie: 
MS, M, 13, 8 



Vergeten component enopdruk : 

Rll aan C3 & C4, R12 aan C4 & collector Tl 

Opmerkingens 

- Als je diode 4 vervangt door een 
germanium tor wordt je beloond met een 
veel lagere drempelspanning (O.IV), bij 
mij AC125 collector aan basis = kathode 
en emitter is anode. 

- Het gebruik van HCT typen die TTL IC's 
welke de bus belasten (bij deze kaart 
allemaal) is aan te raden, wegens de ge- 
ringere busbelasting * 

Bij mij werkt deze kaart al vanaf maart 
'87 goed met D0S65 software en op 2 MHz. 

Het te gebruiken draad voor de draad- 
bruggen moet zeer dun zijn, dus geen draad 
met kous. Ik heb draad gebruikt dat eruit 
ziet als 0.2 mm doorsnede wikkeldraad maar 
waarvan de lauiatle f# »ffl*l€en Is door de 
soldeerbout «* zo'n tien seconden tegenaan 
te houden. Dlt draad heeft zijn nut al 
meermalen bewezen en blijkt mits goed van 
te voren vertind, zeer betrouwbaar te 
zijn. 



//////////////////////////////// 



OCTOtUS/BOS 65; 

- CPU defect f. 75,— 

- DRAM f. 50,— 

- BASICODE niet getest f. 100,— 

- FDU/DOS65inclusief manuals 

en systeemdisk f. 225, — 

Tevens : 

diskdrive, monitor, voeding (Elektuur) en 
19" systeemrack. 

Pia van St am 
Nassaulaan 26 
EDE 

tel: 08380-21146 



LET IT BE mvmnm 

W. vaii A^eiresi 
Lepelaarplantsoen 139 
3145 XD Maassluis 

In nummer 42 op pagina 24/25 staat een 
artikel van Will Cuijpers over ie 
Commodore geluidschip (6581). Hierin 
cJtltbreekt de verbinding van pen 6 van de 
6581 met pen 27a van de bus (Phi 2 
signaal). Op DOS65 heb ik de 6581 op $E200 
tot $E207 ge-adresseerd, dus m£. All, 
AID, AS, A7, A6 en A5 aan massa. 
Verder heb ik de schakellng rondom de 
LM386 vervangen door een (gewijzigde 
versle van een) door Elektuur gepubliceerd 
ontwerp. De elco tussen pen 1 en pen 8 van 
de LM386 heb ik weggelaten (pen 1 en pen 8 
open). De versterking is dan 20 maal mx. 
dat is nog zeer ruim want P2 staat bij mij 
bijna op minimuia volume (zie s€lieiia). 



12 V 




STREEPJES OP SCHERM 
W. van Asperen 

Streepjes op willekeurige plaatsen op het 
scherm van de monitor, aangesloten op de 
ffafisehe kaart van Elektuur, beri ik 
kwijtgeraakt door IC 8 en IC 9 (74LS283) 
te vervangen door 74S283 types (5 maal 
zoveel stroomopname, 3 maal zo duur, maar 
lets sneller, en dat laatste is wat hier 
nodig is). 
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AMtpassia^ van de trgagden van de CRTG-registeys ^ de YDP-kaart 

E.J. van Kan 
Krayenhoff laan 11 
1965 AD Heemskefk 
02510-44373 

Frobleem: Sterk vertekend en "golvend" beeld 6p de monitor blj de 

standaard-inhoud van de CRT-registers. 

Ms experimenteren, heb ik de inboud van de volgende registers gewijzigd: 
Register Dud NiettW 



HOR SYNC PCS 5F 
fSRT SYNC PCS IC 



61 
IB 



Met behulp van de DOS-65 I/O- en Bootstrap-listing is bet vo: 
tot stand gekomea: 

******* Initialise the CSXC-controller ******* 



2000 A2 


OF 




#15 


16 twisters to fill 


2002 8A 




TXA 






2003 8D 


40E1 


STA 


CRTCAR 


Select register 


2006 BD 


1520 


LDA 


CTB,X 


Get value from new table 


2009 8D 


41E1 


STA 


CRTCRF 


Put new value in register 






DEX 




Next register 


200D 10 


F3 


BPL 


l.B 


Ready? 


200F E8 




INX 






2010 8E 


71E7 


STX 


COUD 




2013 18 




CLC 






2014 60 




RTS 







******* CITC 


reglstet' Values 


******* 




2015 7E 


CTB 


fee 


$7E 


HOR TOT (N-1) 


2016 50 




fee 


$50 


HOR DISPL 


2017 61 




fee 


$61 


HOR SYNC POS 


2018 88 




fee 


$88 


H/V SYNC WIDTH 


2019 IE 




fee 


$1E 


VERT TOT (N-1) 


201A 05 




fee 


$05 


VERT TOT ADJ 


201B 19 




fee 


$19 


VERT DISP 


2010 IB 




fee 


$1B 


VERT SYNC POS 


201D 80 




fee 


$80 


MODE CONTROL 


201E 09 




fee 


$09 


SCANLINES (N-1) 


201F 00 




fee 


$00 


CUR START 


2020 09 




fee 


$09 


CUR END 


2021 00 




fee 


$00 


START HI 


2022 00 




fee 


$00 


START LO 


2023 00 




fee 


$00 


CUR HI 


2024 00 




fee 


$00 


CU& m 



De bovenstaande data is met behulp van 
BaaxBa wordt als volgt gehandeld: 

SAVE scherm 2000,2024 <CR> 
^1^1181 -Q aehem <CR> 



de- ttonitor laagebraeht vsaiif ad*i« IQOi* 



Door de naam van de file "seherm", met behulp van de editor, ta de l(igia*e08i te 
zetten, wordt de originele DOS-65 in stand gehouden en wordt de file sChettt , 
bij het opstarten, iedere keer doorlopen. 

mij het resultaat er zija: Een rotsvast monitorbeeld zonder vervorming. 
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Bleuwe 1/065 EPROM. 

Door: Nice de Vries. 

De kerstdagen zitten er weer op. Ze 
zijn nuttig doorgebracht: 1065, het BIOS 
voor DOS65 is op de helling gezet. De 
huidige versie (2.02) is en was goed. Er 
zijn wat toevoeglngen gedaan, dat is 
alles . 

De meest gewenste toevoeging was hard- 
ware handshake op de RS-232 poort. De 
output accepteerde alleen XON/XOFF, op 
de input was zelfs helemaal geen hand- 
shake mogelijk. Dit maakt het soms 
noeilijk cm bijvoorbeeld met een PC te 
coramuniceren. Voor modemgebruik is dit 
geen bezwaar; de baudrate ligt hierbij 
zodanig laag, dat het systeem de data- 
stroom zonder handshake kan verwerken. 

De RS-232 routines zijn zodanig aan- 
gepast, dat thans conanunicatie op 9600 
baud mogelijk is met een PC, zonder dat 
er bytes verloren gaan. Hierbij moeten 
echter ook de handshakeli jnen over en 
wear worden aangesloten. Een schema voor 
een mogelijke kabel staat hieronder. 

Naast de aanpassingen voor RS-232 is 
verder een initialisatie voor de binnen- 
kort te publiceren EPROMprogrammer toe- 
gevoegd. De TEXTOOL socket voert nu na 
een RESET nul volt op alle plnnen. 

Tenslotte zijn de meldingen bij het 
booten van DOS65 wat uitgebreider 
geworden. 



mSSAMGim VAN DE STAHDAABB 6502 PBOCESSOR 

mm EEM GTE 65SG02 P2 PKOCTSSOR 

E.J. van Kan 
KrayeBbof f laau 1 1 
IMS m Beeaskerk 
02510-44373 

Aangezien vervanging van de 6502-processor 
in een DOS-65 systeem door de 6505CQ2 P2 
ai#l; wmAer meet mogelijk is, lieb lit de 
©fiiredsBde problemen en oplossingen daar- 
wsxi op een rijtje gezet. 

IMlS-65 computer met een GTE 65SC02 P2- 
process^r, «ericesd op 1 HBz. 

let systeem bfestaat tiit de CPU-kaart , de 
PU-kaart, de RTC-kaart en een "oude" 64 k 
dynamische RAM-kaart waarvan 56 k wordt 
gebruikt . 

Het enige probleem dat bij deze configura- 
tie optreedt zijn ruisstrepen op het 
iionitor-scherm. Let wel: Buiten de 
vervanging van de processor is er op dit 
moment nog niets gewijzigd t.o.v. de 
standaard DOS-65 uitvoering. 
Om de con St ante itoorsCrepen op het 
iLOftifeQC-scherm te verwijderen volstaat het 
ow pen 1 vaa 10 8 (74LS30) op de VDU-kaart 



Het is niet de bedoeling om de nleuw- 
ste versie (2.11) massaal in omloop te 
brengen. in de eerste plaats is d# 
nieuwe versie op dit moment nog aiei 
grondig genoeg gecontroleerd . Ten 
tweede zijn een aantal lieden op de 
achtergrond druk bezig met de voorbe.* 
reiding op de volgende DOS65 versie, 
V3.00. Het is dan ook de bedO($JLi8g €& 
de nieuwe mogelijkheden te intr@3»e«P«^ 
met de invoering van DOS V3.00. 

Mocht u echter behoefte hebben aan RS- 
232 met handshake, dan kan 1065 
een oplossing betekenen. Maar denk ef* 
om: er kunnen nog klelne bugs in zit- 
ten, het blijft mensenwerk! 



Kabel tussen DOS65 en IBM-PC kloon 



DOS65 
2 



pin Kloon pin 

~RxD 3 

— — TxD — — — 2 

RTS—- — — - 8 

CT3-«^»«,,^ 20 



-DSR 



GND 7 

DCD -— - 4 

20 DTR i 



uit te btiigeti zodat de pen buiten het 

voetje blijft. Verbind de pen met aanslui- 
ting 27a van de 6A-polige connector op de 
VDU-kaart en de storing is verdwenen (*1). 
Verdere problemen op 1 MHz doen zich niet 
voor. 

DOS-65 computer met een GTE 65SC02 P2- 
processor, neiiceiid op 2 MHs . 

Om het systeem met de GTE 65SC02 P2- 
processor op 2 MHz betrouwbaar te laten 
treffeefi moeten er nog diverse aanpasiingeit 
plaatsvinden. Om het een en ander over- 
zichtelijk te houden bespreek ik de 
wljslglngen per kaart afzonderlijk. 

De CFD-kaart: 

- De processor moet worden vervange-n door 

de genoemde GTE 65SC02 P2. Daarnaast 
moet de jumper op PL14 op 2 MHz worden 
ingesteld (verbinding 1-2). De rest van 
de IC's op de CPU-kaart heb ik, in 
eerste instantie, niet vervangen. 

- Waneer de Real Time Clock wordt gebruikt 
moet de boot Eprom vervangen worden door 
een 2 MHz exemplaar welke bij het 
bekende pOS-65 dist r ibu t ie- ad r e s 
verkrijgtfaar is. Wanneer de boot_Eprom 
niet door een 2 Mhz ex6ttiplaar wordt 
vervangen zal een eventueel aanwezige 
RTC-kaart verwijderd moeten worden om te 
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'voorkomen dat de klofc vati het syste«m 
instabiel wordt. Bij mij schakelde het 
systeem op willekeurige momenten van 1 
naar 2 MHz en omgekeerd. 

- Bij problemen met het toetsenbord of de 
f*faile» zal 4© betreffende VIA vervangen 
moeten wordeft door hijv, ®ea 65(S)C22 
P2. Probeer echteir eefst 6f de I Wi« 
exemplaren werken. Het wisselen van de 
twee VIA's wil ook nog wel eens succes 

- li^^** « een itodem gebruikt en u wilt 
de ACIA ook vervangen door eft* 2 MHz 
type, bijv. 65(S)C51 P2, dan kunt u in 
de teststand van het modem controleren 
of de baudrat egenerator oscilleert. 
Wanneer dit niet het geval is zullen de 
feei^e tertstalaansittiClngen, via een 
condensatortje, aan ms»»a geiegd moeten 
worden. Bij mij bleek de doet llfaw de 
Bruine voorgestelde waarde van 6 pf niet 
voldoende te zijn. Twee keramische c's 
van 47 pf gaven een betrouwbare werking 
•van de baudrategenerator op 2 MHz. (*2) 

De VII0-kaairt: 

- Buiten de wijziging zoals genoemd bij 1 
MHz bedrijf zijn geen verdere verande- 
ringen «io®dzakelijk. 

- Hocht M regelmatig "rotzooi" op het 
sc!ierm krijgen welke verdwijnt nadat u 
de kaart met de hand heeft beroerd of na 
een systeem-reset , vervang dan de goed- 
kope IC-voetjes door prof essionele voet- 
jes met gedraaide contacten; meestal is 
4m de eliende uit de wereld. 

- Mocht de voormelde remedie geen succes 
opleveren dan zit er niets anders op dan 
het video-RAM (IC 15) te vervangen door 
een sneller exemplaar, bijv. de Toshiba 
IM2016AP-90. 

ipe Flie-kaart: 

- Deze kaart is al geschikt voor hogere 
kloksnelheden. De hardware bug, zoals 
beschreven door Nico de Vries, heb ik 
verwijderd. (*3) 

De RTC-kaart: 

- Geen wijzigingen. 

De dynaaische RAM-kaart: 

- In mijn systeem wilde de "oude" dynami- 
sche RAM-kaart niet betrouwbaar werken 
op 2 MHz, ook niet na de wijzigingen, 
zoals beschreven in Elektuur-Computing 
2 (pag. 70) te hebben mitgevoerd. 
REMEDIE: Gebruik 
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- Wi^mmW w 4e lieatlsche RAM-kaart (Elek- 
tuuE tmmt '83) nog compleet hebt liggen 
kunt u het beste de kaart ombouwen 
volgens de beschrijving in Elektuur- 
Computing 3 (pag. 104 e.v.). 

LET OP ! ! 

De beschrijving in Computing 3 voldoet 
uitslultetid wanneer u een standaard 6502 
gebruikt ! 

- Voor u de "slopershamer" ter hand neemt 

Dm de timing voor de correct 
te laten verlopen moeten, in tegenstel- 
ling tot het vermelde in Computing 
Special 3, de adresbuffers IC 1 en IC 2 
(74LS373) wel gemonteerd worden. Doet u 
dit niet dan is de 65SC02 P2 te snel 
voor de RAM-kaart en werkt het spul 
niet. De belde buffers geveft juist 
voldoende vertraging om de zaak 
probleemloos op 2 MHz te laten werken. 
Vergeet ook niet de 8 pull-up weerstan- 
den R29 t/m R36 (Ik) op de chip-select 
lijnen te aosteren (*4). 

Kesuaerendi 

Om de stroomkosten en de warmteont wik- 
keling in mijn systeem te reduceren heb 
ik, naast de standaard 6502^ ook de beide 
VIA's en de ACIA vervangen door resp« de 
65C22 P2 en de 65C51 P2. Op de CPU-kaart 
heb ik de TTL-ICs toegepast zoals deze 
vermeld staan in Elektuur Computing 1. Let 
op: IC 20 moet een 74LS06 zijn! Mijn Canon 
A-50 matfi^^icinter bleek op 1 MHz goed te 
werken maar op 2 MHz niet of onvoldoende* 
Na het monteren van een pull-down weer- 
stand van 470 ohm vanaf de strobe naar 
massa was dit probleem ook verleden tijd. 
Om de aansluitingen van de D 25-connector 
op de comput&er niet te hpeyen wijzlgen heb 
Ik de gendemde weetrstand aangesloien op 
poot 23 en 13 van de stekker van de prin- 
terkabel. Het beschreven systeem werkt nu 
probleemloos op 2 MHz waarbij ook de 
gebruikte randapparatuur (printers en 
modem) betrouwbaar functlweireti. 

Seraadpleegde Idttant: 

(*1): De 6502-Kenner 46, pag. 17 

(A. v.d. Beukel) 
(*2): De 6502-Kenner 49, pag. 29 

(B. de Biftjlae) 
(*3): De 6502-Kenner 50, pag. 18 

(N. de Vries) 
(*4): De 6502-Kenner 49, pag. 37 

(M. den Hertog) 
Elektuur-Conqjuting 1 , 2 en 3 
Elektuur maart 1983 



Be statische MM-kaart: 
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Viditelqraphics 
it>a/7a. Te printen 
door het equiva 
-lent A. . Z to 
printen met zowel 
de gra+ische- ale 
de inverse mode 
aangeschakeld. 
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Om viditel met dos-65 mogelijk te maken, moesten -helaas- 
de grafische karakters in de VDU-kaart eprom gewijzigd 
worden. Daar deze karakter generator inmiddels sterk 
geinf iltreerd is bij de gebruikers, kunnen die nu net 
behulp van nevenstaande tabellen, grafische software 
aanpassen aan de viditelcodes . De vidltellrarakteerset 
(eng: Videotex) is interna tionaal 
gestandaardiseerd volgens de zgn 
prestelnorm. Videotex kent 64 
blockgraphics (32 normal, 32 inverse) 
die opgebouwd zijn als een 2x3 
m^t^ikXi.,: iC2*#-64) leder blokje in die 
matfi* Iteeffe zl;^ «igen gewicht, 
zodat men desgewefist mok graphics kan 
berelcenen. Naast vijdfte]. bieden deze 
grafische karalcters! ®ok #e 
mogelljkheid oin een grafisch sch^rin 
met een resolutie van 72 x 160 
beeldpunten op te bouwen. Daardoor 
kan Baslcode-3 nu ook geimplenienteerd 
worden. Uiteraard is de resolutie vrij laag, raaar toch 
kunnen er aardlge tekenlngen gemaakt worden, bekijk naar 
eens een viditel of baaicode-3 tekening ! 



Qraphics buiten 
ds graphi crui Kite: 


rompos. 


gr aphl c . 


S 7F 




SI 


$ FF 




a 


$ 20 




ii 


S AO 




1 



VOORBEELDEN: 

Onderstaande voorbeelden zijn 
geschreven in 'C en maken 
gebruik van de file video. h 
(6502 kenner 50, ) 

Om g£afMe||te printen 

ga»R «>« alsvolgt 1Uk- mm: 



priacrfA"); 



/• ESC F 
/• A •/ 




: I ill 



Mu <^afl we de 
inversegraphic J printen: 

grafon(); inverseC); 
priBtf("A")5 

Oe graphics buiten de graph icru i mte kan men op de normaie 
manier printen. 2o kan man de s7F/»FF graphic respect i eue 1 i j V 
prifit.*a mmt, putchar< 127) ; an 0M%eiJ>»y<aSS:3l; * 

Se t«*iM »n4«re graphics zljri mmn «p«tt» an »mn inverse spatie. 

Met deze irtforMatl* kan men 
ook de functie square uit 
video. h aanpassen 
aan de viditelcodes: 

aquar*£i)i^,,>F , tti#!^iK , ha i gh t > 
/*drau a v^tjar* 

modificated for uidi telchargsn 2. & up*/ 
int X , y , uldth , height ; 

C int i; /tcheck boundaries*/ 

if CCx<l) ; Cuidth<l) : C Cx+uidth3 >793 

: Cy< 1 ) ; Chelght< 1 5 : C Cy + height>>24>) 
raturnCe); /»arror«/ 

grafonC): cursorto ( x , y ) ; /«topline»/ 
printfC"U"); for CI = 1 ; i < u i dth ; i + + > printfC'C"); 
inveraaO; printf ("T"); 

for t 1= 1 ; Khelght ; 1 + + ) /*\*r siaes»/ 

( cursor toCx , y»i); normalC;;printf("U");i nverseC i : 
curaortoCx+uidth, y»i ) ; printf C"U" 3 ; 

J 

cursorba€«,y*fe»ifl:tefe>iprjfit#€''jr''}i /*bcttoBiline»/ 
for Clst'l: J<aid%ti; t**} priaif f"©«S ; 
pr i ntf C "E" > ; graf of f C ) ; norma I C ) ; 
return C 1 ) ; 
} 




B. de Brulne, 3Sn 198S. 
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E77F 
E780 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 



* VERJAARDAG V.l * 
* * 

* qeschreven door A.G.Megens * 

* februar:^' 1987 * 

* voor MON65/DOS65 systeera. * 

* (nederlandse versie) * 
******************************** 

Dit Droqramnia veraeliikt de huidige datum met speciale dagen 
in de 'Birthday.dat' rile. Deze file moet vooraf al op adres 
$8000 geladen ziin (b.v. door het BIRTHDAY conanando). De data 
m deze file heeft de volgende opbouw: 

De eerste regels bevatten een gersoonlijke ver jaardagsboodschap 
met soeciale karakters (zie onaer). Deze boodschap MOET worden 
afgesloten met een orocent '%' teken om het einde van de string 
aan te geven. De volgende speciale ^m^^esm zijn toegestaan: 

wordt vertaald in de string achter de qevonden datum 
wordt vertaald in de string 'zijn' of 'haar' 
wordt vertaald in de string 'hij' of 'zij' 
wordt vertaald in de leeftijd, waar 00 = leefti^d = 99 

De volgende regels van de file bevatten de data voor de speciale 
dagen xn de voeto: 

Jjr-MDDg naain/boodschap JJ = Jaar in twee digits 

MM = Maand in twee digits 
DD = Dag in twee digits 
g = geslacht m = Man 

V = Vrouw 
anders = boodschap 

De rest van de regel bevat dus hetzij de naam van de jarige of 
een boodschap indien het g-veld noch 'm' noch 'v' is. Voor een 
boodschao geldt dat het Jj-veld niet van toepassing is, maar het 
moet wel'uit 2 karakters bestaan. De laatste regel van de file 
MOET weer een procent '%' teken bevatten ora het einde van de data 
aan te geven. Commentaar is in de eerste regel (s) niet toeqestaan. 
Na het eerste % teken kan men echter wel commentaar opnemeh mits 
dit wordt voorafgeqaan door een ' ; ' teken. Lege regels zijn niet 
toegestaan tussen de twee % tekens. Er is ook een Engelse versie 
van het proqramma beschikbaari met iets andere teksten en voor- 
zien van Enqels commentaar - 



J. 

IT 
& 



voorbeeld birthday.dat file: 



Vandaag is # jarig, ? wordt $ jaar. 

801103m Jan Niemand 
670904V Katrien Voorbeeld 

; commentaar , . , 

801103 This day is the first day of the rest of your life. 

% 



+• 



Deze data zal, op 3 november 1987, resulteren in: 

Vandaag is Jan Niemand jariq, hij wordt 07 jaar. 
This day is the first day of the rest of your life. 

Op 4 September l§i7# krijgen we: 

Vandaag is Katrien Voorbeeld jarig, zij wordt 20 jaar. 



DOS65 software clock registers 



DAG 
MAAND 



EQU 
EQU 



$E77F 
DAG+1 
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MR EC^ 







E781 


73 








74 








75 








76 






C1A8 


77 






G135 


78 






FOOO 


79 






C03B 


80 








81 








82 








83 






GOOD 


84 






OOOA 


85 






OOIB 


86 






003B 


87 






0025 


88 






0023 


89 






0024 


90 






003F 


91 






0026 


92 






(X)6D 


93 






QQ7€ 


if 






AOOO 


s& 








97 


AOOO 


A9 


00 


98 


A002 


8D 


3BA1 


99 


A005 


A9 


80 


100 


aoo7 


8D 


3CA1 


101 




20' 


3M1 


102 


mOD €9 


25 


103 


AOOF 


DO 


F9 


104 


AOll 


AD 


80E7 


105 


A014 


20 


A8C1 


106 


A017 


SD 


60A1 


107 


AOIA AD 


7FE7 


103 


ftOlD 


20 


A8C1 


109 


A020 


SD 


51A1 


110 


A023 


AD 


81E7 


111 


A026 


20 


ASCI 


112 


A029 


8D 


62A1 


113 


A02C 


20 


IFAI 


114 


A02F C9 


25 


115 


A031 


FO 


18 


116 


A033 C9 


3B 


117 


A035 


FO 


OB 


118 


A037 


8D 


63A1 


119 


A03A 


20 


iFAl 


120 


A03D 


CD 


60A1 


121 


A040 


FO 


OA 


122 


A042 


20 


3AA1 


123 


A045 


C9 


OD 


124 


A047 


DO 


F9 


125 


A049 


FO 


El 


126 


A04B 


60 




127 


A04C 


20 


ir Al 


123 


A04F 


CD 


61A1 


129 


a052 


DO 


EE 


130 


A054 


20 


3AA1 


131 


A057 


BD 


67A1 


132 


A05A 


C9 


6D 


133 


A05C 


FO 


10 


134 


A05E C9 


76 


135 


A060 


FO 


OC 


136 


A062 


20 


3AA1 


137 


A065 


20 


12A1 


138 


A06o 


20 


A9A0 


139 


A06B 


4C 


2CA0 


140 


A06E 


20 


3AA1 


141 


A071 


20 


46A1 


142 



DAC3+2 



; f'lGN/DlDS routines 



SC1A8 
?C135 
SFOOO 
5C03B 



; speciale karakters 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



VERJAAR LDA 

STA 
LDA 
STA 

SSIGN JSR 
CMP 
BNE 
LDA 
JSR 
STA 
LDA 
JSR 
STA 
LDA 
JSR 
STA 

ZOEK JSR 
CMP 
BEQ 

aip 

BEQ 
STA 
JSR 

aip 

BEQ 

NLINE JSR 

aip 

BNE 
BEQ 

EXIT RTS 
CHKDAG JSR 

CMP 

BNE 
JSR 
STA 

a-ip 

BEQ 

aip 

BEQ 
JSR 
JSR 
JSR 
JHP 

JARIG JSR 
JSR 



13 
10 
27 



•$' 
•ra' 

lyl 

$ADO0 

#0 

PTRL 

#$30 

PTRH 

RCHAR 

{fEOD 

SSIGN 

MAAND 

HEXDEC 

HUIMND 

DAG 

HEXDEC 

HUIDAG 

JAAR 

HEXDEC 

HUIJAAR 

READ 

ffEOD 

EXIT 

SCOMT'! 

NLINE 

TJAAR 

READ 

HUIMND 

CHKDAG 

RCHAR 

#CR 

NLINE 

ZOEK 

READ 

mims 

RCHAR 

GESLCHT 

#MAlNlKAR 

JARIG 

iJVRVJKAR 

JARIG 

RCHAR 

STRING 

NEIJLINE 

ZOEK 

RCHAR 

SAVPTO 



ll-May-37 19:42 



;zGt hex om naar decimal 
; print twee hex digits 
; print een karakter 
; print string 



;ASCII CR code 

;ASCII LF code 

;ASCII ESC ccae 

;defineer comment code 

;ena of file/end of n^ssage code 

; defined NAAI-l c'Cde" 

;defineer LEEFT code 

;defineer HIJ/ZIJ code 

;defineer ZIJN/KAAR code 

jvoor g-veld MAN 

;voor g-veld VROUW 



;reset filepointer in birthday.dat } 
jfile wordt verwacht op adr. $8000 
;zoek naar eerste % karakter 

;lees huidige maand uit software clc 
;zet om naar decimaal 
;en sla op 
?2i#X£de voor dag 

;en jaar 



;lees jaar uit file 
;end of file? 
;ja,~terug naar DOS 
;commentaar? 
;ja, sla deze reqel over 
;sla jaar od voor leeftijd berekenir 
;lees maand uit file 
;zelfde als huidiqe maand? 
;ja; dan ook daa testen 
;anders naar volgende regel 

;en zoek verder 
;terug naar DOS65 

;lees dag ; 

;gelijk aan huidige dag 

;nee, probeer volqende regel 

;sDeciale daq gevonden/ lees g-veld 

;3la OD 

; verjaardaq? 

;ver jaardag? 



;sla soatie over 

;geen verjaardaq/ print alleen boodi 
;en qeneroer ^NEVJLlNE" 
;zoGk verder 
;sla spatie over 
;i3ewaar fileoointer 
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A074 
A076 
A079 
A07B 
A07E 
A081 
A083 
A085 
A087 
A0a9 
AOSB 
A08D 
A08F 
A091 
A093 
A095 
A097 
A099 
A09C 
A09E 
AOAl 
A0A4 
A0A7 
A0A9 
AOAC 
AOAE 



A9 00 
8D 3BA1 
A9 80 
8D 2CA1 
20 3AA1 
C9 25 
FO 19 
C9 24 
FO 28 
C9 23 
FO 34 
C9 3F 
FO 66 
G9 26 
FO 45 
C9 OD 
FO OB 
20 OOFO 
DO EO 
20 53A1 
4C 42A0 
20 A9A0 
DO D5 
20 OOFO 
A9 OA 
4C OOFO 



AOBl AD 62A1 
A0B4 03 
A0B5 F8 
38 

SD 63^ 

AOBA 28 
AOBB 20 35C1 
AOBE 4C 7EA0 



A0B6 
A0B7 



AOCl 

A0C4 
A0C5 
AOCS 
A0C9 
AOCC 

aOcf 

AODO 
A0D3 
A0D4 
A0D7 



ADDA 

AODD 
AODF 
AOEl 
A0E4 
A0E9 
AOEC 
AOEF 
A0F4 



AD 3BA1 

48 

AD 3CA1 
48 

20 53A1 
20 12M 

63 

8D 3CA1 

68 

8D 3BA1 
4C 7EA0 



AD 57A1 
C9 6D 
FO OB 
20 3BC0 
6851517200 
4C 7EA0 
20 3BC0 
7A695A5E00 
4C 7EA0 



A0F7 AD 57A1 
AOFA C9 5D 
AOFC FO OA 
AOFE 20 3BC0 



143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

173 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

1S9 

190 

191 

192 

193 

194 

195 

195 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 





LDA 


$$00 • 




STA 


PTPX 




LDA 


#$80 




STA 


Fsm 


PRBOOD 


JSR 






a4P 


#EOD 




BEQ 


PREI'lD 




a4P 


#LEEFT 




BEQ 


PRLEEFT 




OTP 


#NAAM 




BEQ 


PRNAAM 




CMP 


#HIJZIJ 




BEQ 


PHIJZIJ 




aip 


#ZIJHAA 




SEQ 


PZIJHAA 




a>ip 


#CR 




BEQ 


NEVJLIN 




wm 


OUTCHAR 




PRBOOD 


PREND 


JSR 


RESPTR 




JMP 


NLINE 




JSR 


NEWLINE 




BNE 


PRBOOD 




JSR 


OUTCHAR 




LDA 


#LF 




cm 





U-^y-87 19:42 
;wijs naar persoonli|fet 



llees karakter 
f^d of message? 

;sDeciaal character? 
;ja, print leeftijd 
;speciaal character? 
;ja, print naarnstring 
rspeciaal kar.? 
;ja, print hij/zij 
;speciaal character? 
;ja, print zijn/haar 
;CR kar? 

;ja, genereer CRLF 

jnozmaal karakter, print het 

sen lees verder 

jherstel filepointer 

:en zoek verder 



rprint pa code 
yen W code 
jireturn 



bereken leeftijd ea ^iMt bm in twee digits 



PRLEEFT LDA 

mp 

SED 
SEC 
SBC 
PLP 

JSR 
JMP 



HOUAAR 



TJAM 

HEXOUT 
PRBOOD 



; bereken leeftijd 

;save current Sfatusreg. 

; decimal mode 

; leeftijd J* hutdig jaar - iaar van 
;in dit progranma 00 = leeftxjd = 
iherstel statusreg. 
;dtis turn, digits is voldoende 



print naam string 



PRNAAM LDA 




PHA 




LDA 


PTRH 


PHA 




JSR 


RESPTR 


JSR 




PLA 




. STA 


vrm 


PLA 




STA 




JMP 


PRBOOD 



jherstfil f ia^i»t«af 
jsaeittt mm: 



tm ga door 



print zijn/haar string 



PZIJHAA LDA 

CMP 
BEQ 
JSR 
fee 
JMP 

PRZIJN JSR 
fee 
JMP 



GESLCHT 
#MANKAR. 
PRZIJN 
PRINT 

•haar' ,0 

PRBOOD 

PRINT 

•zijn',0 
PRBOOD 



;lees q-v&M 
;man? . , , 
;ja, print 'ssijn' 



print hij/zij string 



PHIJZIJ LDA 
CMP 
BEQ 
JSR 



GESLCHT 
#MANKAR 
PRHIJ 
PRINT 



;lees g-^«^d 
;nian? 

;ja, print 'hij' 



49 



DOS65-Corner 



23-4iay-87 17:5§ jarig.lis Page 4 



Vierjaariiag progranana f .l door Megasoft 



ll-May-87 19:42 



am immAm 

Al05 4C 7EA0 
AlOa 20 3BC0 

Mm 6 3@a^o 

^aisr 40' ■7em) 



A112 20 3M1 
ftll5 C9 OD 
iai7 FO 05 
10.19 20 OOFO 
W.1C DO F4 
AllE 60 



AllF 
A122 
A124 



A128 
A12A 
A12B 
A12C 
A12D 
A12E 
A131 
A134 

ai3§' 



20 3AA1- 

C9 25 

FO 13 

C9 3B 

FO OF 

OA 

OA 

OA 

OA 

8D 64A1 
20 3AA1 
29 OF 
C© 64A1 
SO 



A13A AD 
A13B OO 
A13C 30 
A13D EE 3BA1 
A140 DO 03 
A142 EE 3GA1 
A145 60 



A146 
A149 
A14C 
A14F 
A152 
A153 
A156 
A159 
AISC 



AD 3BA1 
3D 65A1 
AD 3CA1 
8D 66A1 
60 

AD 65A1 
3D 3BA1 
AD 66A1 
8D 3CA1 
SO 



A160 00 
A161 00 
A162 00 
A163 00 
A154 00 
A165 0000 
A167 00 



AOOO 



213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

253 

259 

260 

261 

262 

253 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 



fee 

JMP 

PRHIJ JSR 

fee 
JMP 



'zij' ,0 

PRBOOD 
PRINT 
'hij' ,0 
PRBOOD 



; print string waar pointer staat totdat een CR is gevonden 



STRING 



EDS 



JSR 
CMP 
BEQ 
JSR 
BNE 
RTS 



RCHAR 

ifCR 
EOS 

OUTCHAR 
STRING 



;lees karakter 
;is het CR? 
;ja, klaar 

;anders print eharacter 
;en lees volgende 
; return 



lees tm& iifits uit file 



READ 



END 



JSR 
CMP 
BEQ 

aip 

BEQ 

ASLA 

ASLA 

ASLA 

ASLA 

STA 

JSR 

AND 

ORA 

RTS 



RCHAR 
#EOD 

mm 



ASAV 
RCHAR 
#$F 
ASAV 



;lees karakter 
;end of file? 
; ja,— 3tT3p 
;eomment kar.? 
;ja, teruq 

;schuif in high nibble 



;sla resultaat op 
;lees volqende kar. 
;alleen low nibble 
;en maak een getal 
; return 



lees een karakter uit birthday. cat file en verhoog pointer 



RCHAR 

PTRL 

PTRH 



RETR 



fee 
fee 
fee 
INC 
BNE 
INC 
RTS 



$AD 

SOO 

$80 

PTRL 

RETR 

PTOH 



; self -modifying routine 
;wijs naar volgend kar. 



; save/restore pointer 



SAVPTR LDA 
STA 
LDA 
STA 
RTS 
LDA 
STA 
LDA 
STA 
RTS 



RESFER 



PTRL 
SPTR 
PTRH 
SPTR+1 

SPTR 
PTRL 
SPTR+1 
PTRH 



HUIMND fee 
HUIDAG fee 
HUIJAAR fee 
TJAAR fee 
ASAV fee 
SPTR fee 
GESLCHT fee 
end 



0 
0 
0 
0 
0 

0,0 

0 

VERJAAR 



Jtoidiae maand 
jtiuidige dag 
jfiuidig jaar 
;jaar uit file 
;temp. save 
;save pointer 
ibewaar g-veld 
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ADVERTENTIE 



De firma Technitron b.v. heeft de volgende artikelen in de aanbieding: 

Art. Code Produkt-omschri jving Aantal Prijs per stuk 



GEHEUGENUITBREIDINGS PRODUKTEN 



STB-QB-0 


Quater Byte 256 kB geheugenuitbreiding 


3 


f. 


200,— 


STB-AT-GB-0 


Grand Byte 2.5 MB geheugenuitbreiding voor 
AT compatible computers (extended memory) 

MULTIFUNKTIE PRODUKTEN 


3 


f . 


350,— 


STB-RIO+II-384 


Rio Plus II raultifunktiekaart met Parallel 
Serieel poort/ klok en 576 kB geheugen XT 


1 


f . 


500,— 


STB-AT-RG-0 


Rio Grande multifunktiekaart met Parallel 
Serieel poort/ 1.5 MB geheugen AT 


3 


f . 


400,— 


STB-SIO-II 


I/O board met klok, parallel, serieel en 
game 


8 


f. 


200,— 


STB-SER+II 


Serieel board met 1 serieSle poort 


9 


f . 


125,— 


STB-COLOUR-XVI 


Colourgraphic kaart 
KLEUREN VIDEO PRODUKTEN 


1 


f. 


275,— 


STB-COLUR/MONO 


CGA en MGA adaptor 
OPTIES 


1 


f. 


175,— 


STB-AT-SER-OPT 


2e serie§le poort t.b.v. Rio plus II en 
Rio Grande 


1 


f . 


150,— 


STB-GAME-OPT 


Game optie voor Rio plus en Rio Grande 


2 


f . 


40,— 



Genoemde prijzen zijn exclusief 20 % BTW. 

Inlichtingen/bestellingen bij Technitron: De heer R. Vleesch Dubois. 



Technitron I Technitron b.v. 

/ Zwarteweg 110, 1431 VM Aalsmeer 
/ Postbus 14, 1430 AA Aalsmeer 
/ Tel.: (02977) 22456 
/ Fax:(02977)40968 
I Tlx: 13301 
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TECHNITRON TLP-12 LASER PRINTER 

- UHEEFTEIGENUJKGEENANDEREKEUZE! 





■ 12 pagina's per minuut (max.) 

■ tot 10.000 afdrukken per maand 

■ 8 ingebouwde lettertypes; 
32 afdruk-combinaties 

■ unieke "FontMaker" service 



■ unieke "FormsMaker", 
formuiier- en logo service 

■ 3 ingebouwde hardware- 
emulaties 

■ flexibele in- en uitvoer van papier 



Technitron 



DATA 



Technitron Data B.V. 

Zwarteweg 110. Postbus 14. 
1430 AA Aalsmeer 
tel. 02977-22456 
telefax 02977-40968 
telex 13301 



Vestigingen in: 

BONDSREPUBLIEK DUITSLAND - DENEMARKEN - ENGELAND - FRANKRIJK - ITALIE - NOORWEGEN - VERENIGDE STATEN - ZWEDEN 



